home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / asmgen3.arc / ASMGEN3.ASM < prev    next >
Assembly Source File  |  1989-04-19  |  158KB  |  5,834 lines
  1. PAGE  59,132
  2. TITLE    ASMGEN - An 8086/8087/8088 disassembler
  3. ;==========================================================================
  4. ;==                                         ==
  5. ;==                    ASMGEN                         ==
  6. ;==                                         ==
  7. ;==      Created:   3-Jun-85                             ==
  8. ;==      Passes:    5           Analysis Flags on: HIK                 ==
  9. ;==                                         ==
  10. ;==========================================================================
  11. ; This disassembly and code revision of ASMGEN was performed by:
  12. ;            James E.Galbraith
  13. ;            1201 Chase St. 
  14. ;            Novato, CA 94945
  15. ;
  16. ; This source code was generated from the public domain program ASMGEN.COM,
  17. ; version 2.01, by using the disassembler program SOURCER.  The disassembly 
  18. ; of ASMGEN, using ASMGEN as the disassembler, was used for reference.  Two 
  19. ; different disassembler programs were used because they use entirely 
  20. ; different strategies, and have somewhat complementary strengths and 
  21. ; weaknesses.  Numerous iterations were required before a good disassembly 
  22. ; was accomplished.  The phrase "good disassembly" means regenerated source 
  23. ; code that can be altered, and then be reassembled to properly executable 
  24. ; code.  The simplest test for a good disassembly is to insert a NOP 
  25. ; instruction at the beginning of the program or between any arbitrary 
  26. ; pair of instructions and then reassemble it.  If the program runs the 
  27. ; same as before, then the test may have passed.  Until such a "good 
  28. ; disassembly" has been achieved, there must be no changes to any of the 
  29. ; address relationships in the program.  The main problems, which must be 
  30. ; resolved manually, are usually with immediate operand data values vs. 
  31. ; address offsets, and embedded address difference relationships.  
  32. ;
  33. ; I got this program as a public domain program, and am releasing my 
  34. ; modified version back into public domain.  The only operational changes 
  35. ; that I made were to make it conform more closely to the description in 
  36. ; the ASMGEN.DOC file.  Program code changes were made to remove "hacker" 
  37. ; type self-modifying code and to make it easier for someone else to 
  38. ; disassemble it in the future.  I have included the original version, 
  39. ; along with ASMGEN.SEQ, as an example of an ASMGEN disassembly.
  40. ; 
  41. ;==========================================================================
  42. ;
  43. ;    Changes made for Version 3.00.
  44. ;
  45. ; There are a number of changes that have been made to this program for
  46. ; version 3.00.  These changes are in two classes - fixing bugs and cleaning
  47. ; up bad code.  This includes what I consider particularly bad "8080 hacker" 
  48. ; style code.  Additionally, ASCII string messages have been placed in the 
  49. ; program code to indicate the location and nature of "points of interest" 
  50. ; for future disassembly.  Addresses listed are from the disassembled 
  51. ; version 2.01.  Specific program changes are commented below.
  52. ;
  53. ; 1.) The term "smoking gun" comes from its use to describe particularly
  54. ; damaging evidence in a court trial.  It is used here to describe
  55. ; particularly bad coding that would never have been written without
  56. ; hostile intent.  The most flagrent example (the "smoking gun") involves
  57. ; mucking around with the JMP instruction offset byte at address 0943 by
  58. ; various instructions.  The six instructions (at 02FF, 0377, 034A, 0358,
  59. ; 03D5, and 03FD) treat the offset byte with disrespect that is completely
  60. ; inappropriate to a jump offset byte.  The instruction at 03D5 is a
  61. ; DECrement instruction, an operation which is a totally incompatible with
  62. ; a JMP instruction offset byte in a variable byte length instruction set.
  63. ; These instructions have now been assigned their own byte variable, named
  64. ; SMOKING_GUN_0944.
  65. ;
  66. ; 2.) The altered immediate operand data values have been reassigned as
  67. ; conventional bytes or words (as appropriate).  They are initiallized to
  68. ; the value that was originally contained in the immediate operand.
  69. ;
  70. ; 3.) Altered instruction op-codes have been replaced by the use of flag
  71. ; bytes and conditional operations.  Such altered op-codes should have died 
  72. ; with the 8080.
  73. ;
  74. ; 4.) A number of TEST (AX,immediate operand) instructions were used to skip
  75. ; over the operand word.  The operand word was, itself, executable code and
  76. ; the destination of subroutine CALLs.  All such TEST instructions have been
  77. ; replaced by JMP SHORT instructions.  This is a "cute trick" that saves one
  78. ; byte of code, but makes the intent of the code more obscure until its
  79. ; function is deciphered.  If it weren't for the "smoking gun" item, above,
  80. ; this could be considered just 8080 style hacker code.
  81. ;
  82. ; 5.) The assembler directive 'PAGE 58,132' is added just preceding 'TITLE'.
  83. ;
  84. ; 6.) PATCH83 MACRO has been altered to allow using it correctly with the
  85. ; /H switch.  An 'H' is added to the '81' op-code byte.
  86. ;
  87. ; 7.) PATCH83 MACRO has been altered to allow it to accomodate negative
  88. ; numbers.
  89. ;
  90. ; 8.) The program code has been corrected to make PATCH83 work correctly.  In
  91. ; version 2.01 the tests were implemented incorrectly.  The function of PATCH83
  92. ; is based on an optimization trick allowed with the 8086/88 instruction set.
  93. ; An arithmetic or logical instruction that operates on a 16-bit register
  94. ; (other than AX) with an immediate operand, that can be expressed as a sign
  95. ; extended 8-bit value, has a shorter alternative instruction form.  This
  96. ; optimization is used with MASM 5.0 and 5.1, but not with earlier versions.
  97. ; Op-code 81H is for the 4-byte long form, 83H is for the 3-byte short form.  
  98. ; PATCH83 is used to force later versions of MASM to generate the longer form 
  99. ; so that the program can be reassembled to its original executable code.  
  100. ; Until data value vs address offset issues are resolved, it is absolutely 
  101. ; essential that code relationships not be altered.
  102. ;
  103. ;-----------------------------------------------------------------------
  104. ; This is the corrected PATCH83 MACRO definition (see symbol MAC_PATCH83).  
  105. ; This source code file (ASMGEN3) has been edited to include the three 
  106. ; occurences of "PATCH83" that (should) be generated when it is disassembled 
  107. ; using ASMGEN.COM.  These are the same ones that occur in ASMGEN version 
  108. ; 2.01, although it completely misses the third instance of PATCH83 (at offset 
  109. ; 14BC in version 2.01).  This has been done for the benefit of future users 
  110. ; of ASMGEN, when they try to disassemble ASMGEN.  It also makes it easier 
  111. ; to reassemble using earlier versions of Microsoft MASM than 5.0.
  112. PATCH83    MACRO    X
  113. ORG    $-3
  114. DB    81H
  115. ORG    $+2
  116. DB    X
  117. ENDM
  118. ;==========================================================================
  119. ;
  120. ;    Changes made for Version 3.01.
  121. ;
  122. ; 9.) The immediate operand value 0FFFF now has an 'H' suffix.  This means 
  123. ; that if the /H switch is set, it is no longer necessary to search for each 
  124. ; occurence to add an 'H'.  ASMGEN.COM version 2.01 can now be disassembled 
  125. ; with the /H switch set, and then reassembled with no severe errors.  There 
  126. ; are 116 warning errors, but that is merely MASM's commentary on the quality 
  127. ; of the version 2.01 code.
  128. ;
  129. ; 10.) The 'D' command now works correctly when the /H switch is set.
  130. ;
  131. ; 11.) INT 20H program termination was replaced with INT 21H Function 4CH, 
  132. ; except when running under DOS versions below 2.00, INT 21H Function 0.
  133. ;
  134. ;=======================================================================
  135. ;Program Segment Prefix (PSP) -- address allocation (either .COM or .EXE)
  136. ; 0000H, 2-byte = op-code INT 20H, return to DOS (an artifact of CPM)
  137. ; 0002H, 1-word = Segment, end of allocation block
  138. ; 0004H, 1-byte = Resreved for DOS
  139. ; 0005H, = long call to MS-DOS function dispatcher
  140. ; 000AH, DWord = prev. contents of termination interrupt vector, INT 22H
  141. ; 000EH, DWord = prev. contents of Ctrl-C handler interrupt vector, INT 23H
  142. ; 0012H, DWord = prev. contents of critical-error handler vector, INT 24H
  143. ; 0016H, 22-byte = Reserved for DOS
  144. ; 002CH, 1-word = Segment address of environment block
  145. ; 002EH,  -byte = Reserved for DOS
  146. ; 005CH, 16-byte = default FCB #1
  147. ; 006CH, 16-byte = default FCB #2 (overlaid if FCB #1 opened)
  148. ; 0080H, 128-byte = default Disk Transfer Area (buffer)
  149. ; 0080H, 1-byte = number of bytes transferred in command tail
  150. ; 0081H, 127-byte = command tail buffer area
  151. ;-----------------------------------------------------------------------
  152. ;Program Header for a .EXE file.
  153. ; 0000H, 1-byte = 4DH -- First part of .EXE file signature
  154. ; 0001H, 1-byte = 5AH -- Second part of .EXE file signature
  155. ; 0002H, 1-word = Length of file MOD 512
  156. ; 0004H, 1-word = Size of file in 512-byte pages, including header
  157. ; 0006H, 1-word = Number of relocation table items
  158. ; 0008H, 1-word = Size of header in paragraphs (16-byte units)
  159. ; 000AH, 1-word = Minimum number of paragraphs needed above program
  160. ; 000CH, 1-word = Maximum number of paragraphs desired above program
  161. ; 000EH, 1-word = Segment displacement of stack module
  162. ; 0010H, 1-word = Contents of Stack Pointer at entry
  163. ; 0012H, 1-word = Word checksum
  164. ; 0014H, 1-word = Contents of IP register at entry (Program Counter)
  165. ; 0016H, 1-word = Segment displacement of code module
  166. ; 0018H, 1-word = Offset of first relocation item in program
  167. ; 001AH, 1-byte = Overlay number (0 for resident part of program)
  168. ; 001BH, variable reserved space
  169. ;[0018]  Relocation table
  170. ;[0006]  variable reserved space (padding for 256-byte alignment)
  171. ;[0008]  Data segment(s)
  172. ;[0014]  Program segment(s), [0016:0014] is IP at program entry
  173. ;[001E]  Stack Segment
  174. ;-----------------------------------------------------------------------
  175. ;Normal File Control Block (FCB), total length is 37 bytes
  176. ;  00H, 1-byte = Drive Identification (not 0FFH)
  177. ; +01H, 8-byte = Filename (8-characters, padded with spaces)
  178. ; +09H, 3-byte = Extension (3-characters, padded with spaces)
  179. ; +0CH, 1-word = Current Block Number
  180. ; +0EH, 1-word = Record size
  181. ; +10H, 4-byte = FIle size (in bytes)
  182. ; +14H, 1-word = Date created/last updated
  183. ; +16H, 1-word = Time created/last updated
  184. ; +18H, 8-byte = Reserved for DOS
  185. ; +20H, 1-byte = Current record number
  186. ; +21H, 4-byte = Random Record Number
  187. ;-----------------------------------------------------------------------
  188. ;Extended File Control Block (FCB), total length is 44 bytes
  189. ;  00H, 1-byte = 0FFH
  190. ; +01H, 5-byte = Reserved (must be zeros)
  191. ; +06H, 1-byte = Attribute byte
  192. ; +07H, 1-byte = Drive Identification
  193. ; +08H, 8-byte = Filename (8-characters, padded with spaces)
  194. ; +10H, 3-byte = Extension (3-characters, padded with spaces)
  195. ; +13H, 1-word = Current Block Number
  196. ; +15H, 1-word = Record size
  197. ; +17H, 4-byte = FIle size (in bytes)
  198. ; +1BH, 1-word = Date created/last updated
  199. ; +1DH, 1-word = Time created/last updated
  200. ; +1FH, 8-byte = Reserved for DOS
  201. ; +27H, 1-byte = Current record number
  202. ; +28H, 4-byte = Random Record Number
  203. ;=======================================================================
  204.  
  205. DATA_0002_E    EQU    2            ; (=0)
  206. ;ALTR_W_03A6+1    EQU    3A7H            ; (72B5:703A7=0)
  207. ;ALTR_OPB_064A+0 EQU    64AH            ; (72B5:064A=0C3H)
  208. ;ALTR_W_0802+1    EQU    803H            ; (72B5:0803=0)
  209. ;ALTR_W_08E3+1    EQU    8E4H            ; (72B5:08E4=0)
  210. ;ALTR_J_B_0943+1 EQU    944H            ; (72B5:0944=0AH)
  211. ;ALTR_W_0945+1    EQU    946H            ; (72B5:0946=0)
  212. ;ALTR_W_09A0+1    EQU    9A1H            ; (72B5:09A1=0)
  213. ;ALTR_W_09E2+1    EQU    9E3H            ; (72B5:09E3=0FFFFH)
  214. ;ALTR_B_0A0E+2    EQU    0A10H            ; (72B5:0A10=40H)
  215. ;ALTR_W_0A47+1    EQU    0A48H            ; (72B5:0A48=10H)
  216. ;ALTR_W_0B2B+1    EQU    0B2CH            ; (72B5:0B2C=0)
  217. ;ALTR_W_0D37+1    EQU    0D38H            ; (72B5:0D38=0)
  218. ;ALTR_B_0EF8+1    EQU    0EF9H            ; (72B5:0EF9=0)
  219. ;ALTR_B_0F47+1    EQU    0F48H            ; (72B5:0F48=0)
  220. ;ALTR_B_0FBA+1    EQU    0FBBH            ; (72B5:0FBB=0)
  221. ;ALTR_J_B_1081+1 EQU    1082H            ; (72B5:1082=24H)
  222. ;ALTR_B_10AA+1    EQU    10ABH            ; (72B5:10AB=0)
  223. ;ALTR_B_10B6+1    EQU    10B7H            ; (72B5:10B7=0)
  224. ;ALTR_W_10BC+2    EQU    10BEH            ; (72B5:10BE=8888H)
  225. ;ALTR_W_1123+1    EQU    1124H            ; (72B5:1124=0)
  226. ;ALTR_W_1222+1    EQU    1223H            ; (72B5:1223=0)
  227. ;ALTR_OPW_1965+0 EQU    1965H            ; (72B5:1965=0CAFEH)
  228. ;ALTR_W_1AC9+1    EQU    1ACAH            ; (72B5:1ACA=0)
  229. ;DATA_2E9E_E    EQU    2E9EH            ; (=0)
  230.  
  231. ;DATA_2E9E_E    EQU    OFFSET LAST_BYTE+19FH
  232. DATA_2E9E_E    EQU    OFFSET DTA4_2C9E+512
  233.  
  234. CR        EQU    0DH
  235. LF        EQU    0AH
  236.  
  237. ;=======================================================================
  238.  
  239. SEG_A        SEGMENT
  240.         ASSUME    CS:SEG_A, DS:SEG_A
  241.  
  242.         ORG    100h
  243. ;=======================================================================
  244.  
  245. ASMGEN        PROC    FAR
  246.  
  247. START:
  248.         JMP    SHORT BEGIN
  249. ;==========================================================================
  250.  
  251.         DB    ' ASMGEN',7,1AH    ;name, beep, ctrl-Z (EOF)
  252. OLD_W_03A7    DW    0
  253. OLD_RET_NOP_064A DB    0    ;00=RETN, 0FFH=NOP (execute following code)
  254. OLD_W_0803    DW    0
  255. OLD_W_08E4    DW    0
  256. SMOKING_GUN_0944 DB    0    ;was altereed byte at 0944
  257. OLD_JUMP_0944    DB    0    ;00=jump, 0FFH=no jump
  258. OLD_W_0946    DW    0    ;(immediate) operand word/(byte?)
  259. OLD_W_09A1    DW    0
  260. OLD_W_09E3    DW    0FFFFH
  261. OLD_B_0A10    DB    040H
  262. OLD_W_0A48    DW    0010H
  263. OLD_W_0B2C    DW    0
  264. OLD_W_0D38    DW    0
  265. OLD_B_0EF9    DB    0
  266. OLD_B_0F48    DB    0
  267. OLD_B_0FBB    DB    0
  268. OLD_JUMP_1082    DB    0    ;00=jump, 0FFH=no jump
  269. OLD_B_10AB    DB    0
  270. OLD_B_10B7    DB    0
  271. OLD_W_10BE    DW    8888H
  272. OLD_W_1124    DW    0
  273. OLD_W_1223    DW    0
  274. OLD_DEC_1965    DB    1    ;01=decrement, 00=test for zero
  275. OLD_W_1ACA    DW    0
  276.  
  277. ;==========================================================================
  278.  
  279. ;**DAT_02B9    DB    0
  280. SEQ_FILE_CMDS    DB    0    ;(14 bytes in table)
  281.         DB    '/'    ; .SEQ switch character
  282.         DB    'I'    ; set Initial value for IP
  283.         DB    'A'    ; Assume directive
  284.         DB    'X'    ; repeat structure
  285.         DB    0, 0
  286.         DB    'D'    ; data operand (not label) (resume as code)
  287.         DB    '#'    ; defined length string
  288.         DB    '$'    ; defined length string
  289.         DB    'S'    ; disassemble as ASCII string of characters
  290.         DB    'W'    ; disassemble as data words or labels
  291.         DB    'B'    ; disassemble as data bytes
  292.         DB    'C'    ; disassemble as code
  293.  
  294. ;**DATA_02C7    DB    'MHBTFLERO'    
  295.                 ; SEQ_SW_BYTES, indexed switch characters 
  296. SEQ_FILE_SWITCH    DB    'M'    ; Suppress MACRO library
  297.         DB    'H'    ; Append hex 'H'
  298.         DB    'B'    ; Generate byte references
  299.         DB    'T'    ; Control trace output
  300.         DB    'F'    ; 8087 mnemonics
  301.         DB    'L'    ; Generate label or number
  302.         DB    'E'    ; Embedded references in ASM file
  303.         DB    'R'    ; Control TBL output
  304.         DB    'O'    ; Control ASM output
  305.  
  306. ;==========================================================================
  307.  
  308. EXIT_CODE    DB    00, 4CH            ; DOS EXIT function code
  309.  
  310. ;==========================================================================
  311. ;            Program Code Starts
  312. ;==========================================================================
  313.  
  314. BEGIN:        CLD                ; Clear direction
  315.         MOV    SP,OFFSET START
  316.  
  317.         MOV    AH,30H
  318.         INT    21H            ; get DOS version number
  319.         CMP    AL,2
  320.         JAE    DOS_2_UP
  321.         MOV    EXIT_CODE+1,0
  322. DOS_2_UP:
  323.         MOV    AX,DS:DATA_0002_E    ; (=0)
  324.         MOV    BX,CS
  325.         SUB    AX,BX
  326.         TEST    AH,0F0H
  327.         JZ    LOC_0115
  328.         MOV    AX,0FFFFH
  329.         JMP    SHORT LOC_0119
  330. LOC_0115:
  331.         MOV    CL,4
  332.         SHL    AX,CL            ; Shift w/zeros fill
  333. LOC_0119:
  334.         MOV    DATA_2883,AX        ; (=0)
  335.         SUB    AX,DATA_2E9E_E        ; (=0)
  336.         JC    LOC_0126
  337.         CMP    AX,100H
  338.         JAE    LOC_012C
  339. LOC_0126:
  340.         MOV    DX,OFFSET MS_INSUFF_MEM    ; (72B5:27D9=49H)
  341.         JMP    LOC_0214
  342. LOC_012C:
  343.         MOV    DX,OFFSET INT_23H_ENTRY
  344.         MOV    AX,2523H
  345.         INT    21H            ; DOS Services  ah=function 25h
  346.                         ;  set intrpt vector al to ds:dx
  347.         MOV    SI,81H            ; command tail in PSP
  348.         CALL    SCAN_SPTAB_0E3F
  349.         JNZ    LOC_013F
  350.         JMP    LOC_0204
  351. LOC_013F:
  352.         CALL    SUB_056C
  353.         CALL    SCAN_SPTAB_0E3F
  354.         JNZ    LOC_014F
  355. LOC_0147:
  356.         MOV    BYTE PTR FCB4_NAME_2A35,20H    ; (72B5:2A35=0AH) ' '
  357.         JMP    LOC_0269
  358. LOC_014F:
  359.         CMP    AL,3BH            ; ';'
  360.         JE    LOC_0147
  361.         CALL    SUB_0E37
  362.         MOV    DI,OFFSET FCB1_291C    ; 
  363.         MOV    AX,2904H
  364.         INT    21H            ; DOS Services  ah=function 29h
  365.                         ;  parse filenam @ds:si FCBes:di
  366.         CMP    BYTE PTR FCB1_NAME_291D,20H    ; (72B5:291D=20H) ' '
  367.         JNE    LOC_017D
  368.         PUSH    SI
  369.         MOV    SI,OFFSET FCB3_2A0F    ; (72B5:2A0F=61H)
  370.         MOV    DI,OFFSET FCB1_291C    ; (72B5:291C=0)
  371.         MOV    CX,9
  372.         REP    MOVSB            ; Rep when cx >0 Mov [si] to es:[di]
  373.         MOV    SI,OFFSET MS_ASM_2764    ; (72B5:2764=41H)
  374.         MOV    DI,OFFSET FCB1_EXT_2925    ; (72B5:2925=20H)
  375.         MOV    CX,3
  376.         REP    MOVSB            ; Rep when cx >0 Mov [si] to es:[di]
  377.         POP    SI
  378. LOC_017D:
  379.         CALL    SCAN_SPTAB_0E3F
  380.         JZ    LOC_01BD
  381.         CMP    AL,3BH            ; ';'
  382.         JE    LOC_01B9
  383.         CALL    SUB_0E37
  384.         MOV    DI,OFFSET FCB2_2942    ; (72B5:2942=0)
  385.         MOV    AX,2904H
  386.         INT    21H            ; DOS Services  ah=function 29h
  387.                         ;  parse filenam @ds:si FCBes:di
  388.         CMP    BYTE PTR FCB2_NAME_2943,20H    ; (72B5:2943=20H) ' '
  389.         JNE    LOC_01B0
  390.         PUSH    SI
  391.         MOV    SI,OFFSET FCB3_2A0F    ; (72B5:2A0F=61H)
  392.         MOV    DI,OFFSET FCB2_2942    ; (72B5:2942=0)
  393.         MOV    CX,9
  394.         REP    MOVSB            ; Rep when cx >0 Mov [si] to es:[di]
  395.         MOV    SI,OFFSET MS_TBL_276E    ; (72B5:276E=54H)
  396.         MOV    DI,OFFSET FCB2_EXT_294B    ; (72B5:294B=20H)
  397.         MOV    CX,3
  398.         REP    MOVSB            ; Rep when cx >0 Mov [si] to es:[di]
  399.         POP    SI
  400. LOC_01B0:
  401.         CALL    SCAN_SPTAB_0E3F
  402.         JZ    LOC_01BD
  403.         CMP    AL,3BH            ; ';'
  404.         JNE    LOC_0211
  405. LOC_01B9:
  406.         DEC    DATA_286F        ; (=0)
  407. LOC_01BD:
  408.         MOV    SI,OFFSET FCB1_NAME_291D    ; (72B5:291D=20H)
  409.         MOV    DI,OFFSET MS_NUL_2767    ; (72B5:2767=4EH)
  410.         MOV    CX,4
  411.         REPE    CMPSB            ; Rep zf=1+cx >0 Cmp [si] to es:[di]
  412.         JNZ    LOC_01D1
  413.         CMP    BYTE PTR FCB1_FILSZ_292C,20H    ; (72B5:292C=20H) ' '
  414.         JE    LOC_01EB
  415. LOC_01D1:
  416.         CMP    BYTE PTR FCB1_NAME_291D,20H    ; (72B5:291D=20H) ' '
  417.         JE    LOC_01EB
  418.         MOV    BYTE PTR DATA_2862,41H    ; (=0) 'A'
  419.         MOV    SI,OFFSET FCB1_291C    ; (72B5:291C=0)
  420.         MOV    DI,OFFSET FCB4_2A34    ; (72B5:2A34=0DH)
  421.         MOV    CX,24H            ; 36 decimal
  422.         REP    MOVSB            ; Rep when cx >0 Mov [si] to es:[di]
  423.         CALL    SUB_0714
  424. LOC_01EB:
  425.         CMP    BYTE PTR FCB2_NAME_2943,20H    ; (72B5:2943=20H) ' '
  426.         JE    LOC_0226
  427.         MOV    BYTE PTR DATA_2862,52H    ; (=0) 'R'
  428.         MOV    SI,OFFSET FCB2_2942    ; (72B5:2942=0)
  429.         MOV    DI,OFFSET FCB4_2A34    ; (72B5:2A34=0DH)
  430.         MOV    CX,24H            ; 36 decimal
  431.         REP    MOVSB            ; Rep when cx >0 Mov [si] to es:[di]
  432.         JMP    SHORT LOC_0269
  433. LOC_0204:
  434. ;**CHANGED**    MOV    DX,OFFSET MS_PC_DASM_2969    ; (72B5:2969=54H)
  435.         MOV    DX,OFFSET MS_PC_DISASMB    ; (72B5:2969=54H)
  436.         MOV    AH,9
  437.         INT    21H            ; DOS Services  ah=function 09h
  438.                         ;  display char string at ds:dx
  439.         CALL    SUB_06F1
  440.         JMP    SHORT LOC_0287
  441.     ;***    DB    90H
  442. LOC_0211:
  443.         MOV    DX,OFFSET MS_INVALID_CMD    ; (72B5:27ED=49H)
  444.  
  445. ASMGEN        ENDP
  446.  
  447. ;==========================================================================
  448. ;         Output Beep and error message DX
  449. ;==========================================================================
  450.  
  451. DSPY_ER_DX_0214    PROC    NEAR
  452. LOC_0214:
  453.         MOV    SP,OFFSET START
  454.         MOV    AL,7
  455.         CALL    DSPY_CHR_AL_070
  456. LOC_021C:
  457.         CALL    DSPY_CRLF_06FB
  458.         MOV    AH,9
  459.         INT    21H            ; DOS Services  ah=function 09h
  460.                         ;  display char string at ds:dx
  461. LOC_0223:
  462.         CALL    DSPY_CRLF_06FB
  463. LOC_0226:
  464.         TEST    BYTE PTR DATA_286F,0FFH    ; (=0)
  465.         JNZ    LOC_0290        ; INT 20H program terminate
  466.         CLD                ; Clear direction
  467.         MOV    SP,OFFSET START
  468.         MOV    DX,OFFSET MS_PROMPT_XARQ ; (=58H)
  469.         MOV    AH,9
  470.         INT    21H            ; DOS Services  ah=function 09h
  471.                         ;  display char string at ds:dx
  472.         MOV    SI,OFFSET FCB3_2A0F    ; (72B5:2A0F=61H)
  473.         CALL    SUB_06B1
  474.         MOV    DX,OFFSET DATA_2627    ; (=3EH)
  475.         MOV    AH,9
  476.         INT    21H            ; DOS Services  ah=function 09h
  477.                         ;  display char string at ds:dx
  478.         CALL    SUB_06F1
  479.         CALL    SCAN_SPTAB_0E3F
  480.         JZ    LOC_0226
  481.         LODSB                ; String [si] to al
  482.         AND    AL,5FH            ; clear bit-5, strip case
  483.         MOV    DATA_2862,AL        ; (=0)
  484.         MOV    DI,OFFSET FCB4_2A34    ; (72B5:2A34=0DH)
  485.         CMP    AL,41H            ; 'A'
  486.         JNE    LOC_0262
  487.         CALL    SUB_053A
  488.         CALL    SUB_0714
  489.         JMP    SHORT LOC_0226
  490. LOC_0262:
  491.         CMP    AL,52H            ; 'R'
  492.         JNE    LOC_0283
  493.         CALL    SUB_053A
  494. LOC_0269:
  495.         CMP    BYTE PTR DATA_2861,2    ; (=0)
  496.         JE    LOC_0277
  497.         PUSH    DI
  498.         PUSH    SI
  499.         CALL    SUB_071B
  500.         POP    SI
  501.         POP    DI
  502. LOC_0277:
  503.         CMP    BYTE PTR FCB4_NAME_2A35,20H    ; (72B5:2A35=0AH) ' '
  504.         JE    LOC_0226
  505.         CALL    SUB_0B4A
  506.         JMP    SHORT LOC_0226
  507. LOC_0283:
  508.         CMP    AL,58H            ; 'X'
  509.         JNE    LOC_028C
  510. LOC_0287:
  511.         CALL    SUB_056C
  512.         JMP    SHORT LOC_0226
  513.  
  514. LOC_028C:                    ; Is it "Q" for QUIT?
  515.         CMP    AL,51H            ; 'Q'
  516.         JNE    LOC_0211
  517. LOC_0290:
  518. ;**CHANGED**    INT    20H            ; Program Terminate
  519.         MOV    AX,WORD PTR EXIT_CODE
  520.         INT    21H            ; Program Terminate
  521.  
  522. DSPY_ER_DX_0214    ENDP
  523.  
  524.  
  525. ;==========================================================================
  526. ;
  527. ;            External Entry Point
  528. ;
  529. ;==========================================================================
  530.  
  531. INT_23H_ENTRY    PROC    FAR
  532.         STI                ; Enable interrupts
  533.         PUSH    CS
  534.         POP    SS
  535.         MOV    SP,OFFSET START
  536.         PUSH    CS
  537.         POP    DS
  538.         PUSH    CS
  539.         POP    ES
  540.         CALL    DSPY_CRLF_06FB
  541.         CALL    SUB_064A
  542.         CMP    BYTE PTR DATA_2861,2    ; (=0)
  543.         JE    LOC_02AC
  544.         CALL    SUB_0572
  545. LOC_02AC:
  546. ;**CHANGED**    MOV    DX,OFFSET DATA_268E    ; (72B5:268E=0DH)
  547.         MOV    DX,OFFSET MS_CRLF_$    ; (72B5:268E=0DH)
  548.         TEST    BYTE PTR DATA_286F,0FFH    ; (=0)
  549.         JNZ    LOC_0290        ; INT 20H, program terminate
  550.         JMP    LOC_021C        ; display CR LF
  551. INT_23H_ENTRY    ENDP
  552.  
  553. ;==========================================================================
  554. ;                   SUBROUTINE
  555. ;==========================================================================
  556.  
  557. SUB_02D0    PROC    NEAR
  558. LOC_02D0:
  559.         MOV    AL,0FFH
  560. ;**CHANGED**    MOV    DI,OFFSET DATA_2870    ; (=0FFH)
  561.         MOV    DI,OFFSET SEQ_SW_BYTES    ; (=0FFH)
  562.         MOV    CX,9
  563.         REP    STOSB            ; Rep when cx >0 Store al to es:[di]
  564.         MOV    SI,OFFSET MAC_PATCH83    ; (72B5:24E0=0)
  565. LOC_02DD:
  566.         LODSB                ; String [si] to al
  567.         CMP    AL,0FFH
  568.         JE    LOC_02EC
  569.         CMP    AL,1
  570.         JA    LOC_02DD
  571.         MOV    BYTE PTR [SI-1],0
  572.         JMP    SHORT LOC_02DD
  573. LOC_02EC:
  574.         PUSH    WORD PTR FCB3_EXT_2A17    ; (72B5:2A17=7261H)
  575.         PUSH    WORD PTR FCB3_EXT2_2A19    ; (72B5:2A19=2079H)
  576.         MOV    SI,OFFSET MS_SEQ_276B    ; (72B5:276B=53H)
  577.         MOV    DI,OFFSET FCB3_EXT1_2A18    ; (72B5:2A18=72H)
  578.         MOV    CX,3
  579.         REP    MOVSB            ; Rep when cx >0 Mov [si] to es:[di]
  580. ;**CHANGED**    MOV    DS:ALTR_J_B_0943+1,CL    ; (72B5:0944=0AH)
  581.         MOV    DS:SMOKING_GUN_0944,CL    ; (72B5:0944=0AH)
  582.         CALL    SUB_0E00
  583.         MOV    DI,DATA_2E9E_E        ; (=0)
  584.         JNC    LOC_0314
  585. LOC_030B:
  586.         POP    WORD PTR FCB3_EXT2_2A19    ; (72B5:2A19=2079H)
  587.         POP    WORD PTR FCB3_EXT_2A17    ; (72B5:2A17=7261H)
  588.         RETN
  589. LOC_0314:
  590.         MOV    AX,WORD PTR FCB3_FILSZ_2A1F    ; (72B5:2A1F=2058H)
  591.         MOV    DATA_284D,AX        ; (72B5:284D=0)
  592.         MOV    BX,5
  593.         XOR    CX,CX
  594. LOC_031F:
  595.         CALL    SUB_04BE
  596.         DEC    BX
  597.         JP    LOC_031F        ; Jump if parity=1
  598. ;**CHANGED**    MOV    DS:ALTR_W_03A6+1,CX    ; (72B5:03A7=0)
  599.         MOV    DS:OLD_W_03A7,CX    ; (72B5:03A7=0)
  600. LOC_0329:
  601.         CALL    SUB_04D7
  602.         JC    LOC_030B
  603.         CALL    RD_SK_SPTB_1238
  604.         CMP    AL,61H            ; 'a' 
  605.         JB    LOC_0337
  606.         AND    AL,5FH            ; clear bit-5, strip case
  607. LOC_0337:
  608. ;**CHANGED**    CMP    BYTE PTR DS:ALTR_J_B_0943+1,0FFH    ; (72B5:0944=0AH)
  609.         CMP    BYTE PTR DS:SMOKING_GUN_0944,0FFH    ; (72B5:0944=0AH)
  610.         JE    LOC_03B5
  611.         PUSH    DI
  612. ;**CHANGED**    MOV    DI,OFFSET DAT_02B9    ; (72B5:02B9=0)
  613.         MOV    DI,OFFSET SEQ_FILE_CMDS    ; .SEQ file commands (table)
  614.         MOV    CX,0EH            ; (14 bytes in table)
  615.         REPNE    SCASB            ; Rep zf=0+cx >0 Scan es:[di] for al
  616.         POP    DI
  617.         JNZ    ALTR_W_03A6        ; jump if char not in table
  618. ;**CHANGED**    CMP    BYTE PTR DS:ALTR_J_B_0943+1,0C0H    ; (72B5:0944=0AH)
  619.         CMP    BYTE PTR DS:SMOKING_GUN_0944,0C0H    ; (72B5:0944=0AH)
  620.         JNE    LOC_0354
  621.         JMP    LOC_03EB
  622. LOC_0354:
  623.         CMP    AL,58H            ; 'X' .SEQ repeating structure
  624.         JNE    LOC_0360
  625. ;**CHANGED**    MOV    BYTE PTR DS:ALTR_J_B_0943+1,0C0H    ; (72B5:0944=0AH)
  626.         MOV    BYTE PTR DS:SMOKING_GUN_0944,0C0H    ; (72B5:0944=0AH)
  627.         JMP    LOC_03F8
  628. LOC_0360:
  629.         CMP    AL,2FH            ; '/' .SEQ switch character?
  630.         JNE    LOC_03D1        ; if not, jump and try command
  631.         CALL    RD_NXT_BYT_1B1B        ; check for .SEQ file switches
  632.         CMP    AL,61H            ; 'a' 
  633.         JB    LOC_036D
  634.         AND    AL,5FH            ; clear bit-5, strip case
  635. LOC_036D:
  636.         PUSH    DI
  637. ;**CHANGED**    MOV    DI,OFFSET DATA_02C7    ; (=4DH)
  638.         MOV    DI,OFFSET SEQ_FILE_SWITCH
  639.         MOV    CX,9            ; scan for switch character
  640.         REPNE    SCASB            ; Rep zf=0+cx >0 Scan es:[di] for al
  641.         POP    DI
  642.         JNZ    ALTR_W_03A6        ; jump if switch not found
  643.         XCHG    BX,CX
  644.         CALL    RD_NXT_BYT_1B1B
  645.         CMP    BX,7            ; BX is switch index value
  646.         JAE    LOC_039E
  647. ;**CHANGED**    NOT    DATA_2870[BX]        ; (=0FFH)
  648.         NOT    SEQ_SW_BYTES[BX]    ; (=0FFH)
  649.         MOV    AH,0FFH            ; switch ON value
  650.         CMP    AL,2BH            ; '+' is it plus?
  651.         JE    LOC_0393        ; if yes, set switch
  652.         CMP    AL,2DH            ; '-' is it minus?
  653.         JNE    LOC_0397        ; if not minus, jump
  654.         MOV    AH,0            ; switch OFF value
  655. LOC_0393:
  656. ;**CHANGED**    MOV    DATA_2870[BX],AH    ; (=0FFH)
  657.         MOV    SEQ_SW_BYTES[BX],AH    ; write indexed switch value
  658. LOC_0397:
  659.         PUSH    AX
  660.         CALL    SUB_04BE
  661.         POP    AX
  662.         JMP    SHORT LOC_03A3
  663. LOC_039E:
  664. ;**CHANGED**    MOV    BYTE PTR DATA_2870[BX],0    ; (=0FFH)
  665.         MOV    BYTE PTR SEQ_SW_BYTES[BX],0    ; (=0FFH)
  666. LOC_03A3:
  667.         JMP    LOC_0497
  668. ;-----------------------------------------------
  669. ; switch character not found
  670. ALTR_W_03A6:
  671. ;**CHANGED**    MOV    DX,0
  672.         MOV    DX,OLD_W_03A7
  673.         MOV    DI,OFFSET DATA_270C    ; (72B5:270C=30H)
  674.         CALL    CNV_W_2_HX_151D
  675.         MOV    DX,OFFSET MS_ERR_SEQ_26E0    ; (72B5:26E0=55H)
  676.         JMP    LOC_0214
  677. LOC_03B5:
  678.         MOV    CL,AL
  679.         CALL    RD_NXT_BYT_1B1B
  680.         AND    AL,5FH            ; clear bit-5, strip case
  681.         MOV    AH,AL
  682.         MOV    AL,CL
  683.         PUSH    DI
  684.         MOV    DI,OFFSET SEG_REGS_24BB    ; (72B5:24BB=45H)
  685.         MOV    CX,4
  686.         REPNE    SCASW            ; Rep zf=0+cx >0 Scan es:[di] for ax
  687.         POP    DI
  688.         JNZ    ALTR_W_03A6
  689.         ADD    CL,10H
  690.         JMP    SHORT LOC_03F8
  691. ;-----------------------------------------------
  692. LOC_03D1:
  693.         CMP    AL,41H            ; 'A' Assume directive
  694.         JNE    LOC_03DB
  695. ;**CHANGED**    DEC    BYTE PTR DS:ALTR_J_B_0943+1    ; (72B5:0944=0AH)
  696.         DEC    BYTE PTR DS:SMOKING_GUN_0944    ; (72B5:0944=0AH)
  697.         JMP    SHORT LOC_03F8
  698. LOC_03DB:
  699.         CMP    AL,49H            ; 'I' Initial value for IP
  700.         JNE    LOC_03F8
  701.         MOV    DATA_285A,BX        ; (=0)
  702.         MOV    BYTE PTR DATA_286D,0FFH    ; (=0)
  703.         JMP    LOC_049B
  704.  
  705. LOC_03EB:
  706.         CMP    CL,1            ; 7 SEQ commands
  707.         JB    ALTR_W_03A6
  708.         CMP    CL,8
  709.         JA    ALTR_W_03A6
  710.         OR    CL,40H            ; '@' make 41H thru 48H
  711. LOC_03F8:
  712.         MOV    AH,4            ; 4 bytes to store
  713.         CALL    SUB_0F6C
  714. ;**CHANGED**    TEST    BYTE PTR DS:ALTR_J_B_0943+1,0FFH    ; (72B5:0944=0AH)
  715.         TEST    BYTE PTR DS:SMOKING_GUN_0944,0FFH    ; (72B5:0944=0AH)
  716.         JNZ    LOC_0421
  717. ;**CHANGED**    CMP    BX,DS:ALTR_W_03A6+1    ; (72B5:03A7=0)
  718.         CMP    BX,DS:OLD_W_03A7    ; (72B5:03A7=0)
  719.         JAE    LOC_041D
  720.         PUSH    DI
  721. ;**CHANGED**    MOV    DX,DS:ALTR_W_03A6+1    ; (72B5:03A7=0)
  722.         MOV    DX,DS:OLD_W_03A7    ; (72B5:03A7=0)
  723.         MOV    DI,OFFSET DATA_2736    ; (72B5:2736=30H)
  724.         CALL    CNV_W_2_HX_151D
  725.         MOV    DX,OFFSET MS_AD_ORDR_2712    ; (72B5:2712=41H)
  726.         MOV    AH,9
  727.         INT    21H            ; DOS Services  ah=function 09h
  728.                         ;  display char string at ds:dx
  729.         POP    DI
  730. LOC_041D:
  731. ;**CHANGED**    MOV    DS:ALTR_W_03A6+1,BX    ; (72B5:03A7=0)
  732.         MOV    DS:OLD_W_03A7,BX    ; (72B5:03A7=0)
  733. LOC_0421:
  734.         MOV    AX,BX
  735.         STOSW                ; Store ax to es:[di]
  736.         MOV    AL,CL
  737.         STOSB                ; Store al to es:[di]
  738.         MOV    BX,DI
  739.         MOV    AL,0
  740.         STOSB                ; Store al to es:[di]
  741.         CALL    RD_SK_SPTB_1238
  742.         CMP    AL,3BH            ; ';' is it comment delimiter?
  743.         JE    SCAN_2_EOL_04A2        ; if yes, jump
  744. LOC_0433:
  745.         CMP    AL,0DH            ; CR
  746.         JE    LOC_0459
  747.         CMP    AL,0AH            ; LF
  748.         JE    LOC_0459
  749.         CMP    AL,9            ; TAB
  750.         JE    LOC_0459
  751.         MOV    AH,1
  752.         CALL    SUB_0F6C
  753.         CMP    AL,61H            ; 'a' 
  754.         JB    LOC_044A
  755.         AND    AL,5FH            ; clear bit-5, strip case
  756. LOC_044A:
  757.         STOSB                ; Store al to es:[di]
  758.         INC    BYTE PTR [BX]
  759.         CMP    BYTE PTR [BX],7FH
  760.         JE    LOC_0459
  761.         CALL    RD_NXT_BYT_1B1B
  762.         CMP    AL,20H            ; ' '
  763.         JNE    LOC_0433
  764. LOC_0459:
  765.         TEST    BYTE PTR [BX],0FFH
  766.         JZ    LOC_0497
  767.         OR    BYTE PTR [DI-1],80H
  768.         CMP    BYTE PTR [BX],7FH
  769.         JE    LOC_0497
  770.         CMP    AL,0DH            ; CR
  771.         JE    LOC_0497
  772.         CALL    RD_SK_SPTB_1238
  773.         CMP    AL,3BH            ; ';'
  774.         JE    SCAN_2_EOL_04A2
  775. LOC_0472:
  776.         CMP    AL,0DH            ; CR
  777.         JE    LOC_0493
  778.         CMP    AL,9            ; TAB
  779.         JNE    LOC_047C
  780.         MOV    AL,20H            ; ' '
  781. LOC_047C:
  782.         MOV    AH,1
  783.         CALL    SUB_0F6C
  784.         STOSB                ; Store al to es:[di]
  785.         OR    BYTE PTR [BX],80H
  786.         INC    BYTE PTR [BX]
  787.         CMP    BYTE PTR [BX],0FFH
  788.         JE    LOC_0493
  789.         CALL    RD_NXT_BYT_1B1B
  790.         CMP    AL,3BH            ; ';'
  791.         JNE    LOC_0472
  792. LOC_0493:
  793.         OR    BYTE PTR [DI-1],80H
  794. LOC_0497:
  795.         CMP    AL,0DH            ; CR
  796.         JE    LOC_04B1
  797. LOC_049B:
  798.         CALL    RD_SK_SPTB_1238
  799.         CMP    AL,3BH            ; ';'
  800.         JNE    LOC_04AD
  801. SCAN_2_EOL_04A2:
  802.         CALL    RD_SK_SPTB_1238
  803.         CMP    AL,1AH            ; Ctrl-Z
  804.         JE    LOC_04BB
  805.         CMP    AL,0DH            ; CR
  806.         JNE    SCAN_2_EOL_04A2
  807. LOC_04AD:
  808.         CMP    AL,0DH            ; CR
  809.         JNE    LOC_04BB
  810. LOC_04B1:
  811.         CALL    RD_NXT_BYT_1B1B
  812.         CMP    AL,0AH            ; LF
  813.         JNE    LOC_04BB
  814.         JMP    LOC_0329
  815. LOC_04BB:
  816.         JMP    ALTR_W_03A6
  817. SUB_02D0    ENDP
  818.  
  819.  
  820. ;==========================================================================
  821. ;                   SUBROUTINE
  822. ;==========================================================================
  823.  
  824. SUB_04BE    PROC    NEAR
  825.         MOV    AH,4
  826.         CALL    SUB_0F6C
  827.         MOV    AX,CX
  828.         STOSW                ; Store ax to es:[di]
  829.         MOV    AL,BL
  830.         OR    AL,20H            ; ' '
  831. ;**CHANGED**    TEST    BYTE PTR DATA_2870[BX],0FFH    ; (=0FFH)
  832.         TEST    BYTE PTR SEQ_SW_BYTES[BX],0FFH    ; (=0FFH)
  833.         JZ    LOC_04D3
  834.         OR    AL,10H
  835. LOC_04D3:
  836.         MOV    AH,0
  837.         STOSW                ; Store ax to es:[di]
  838.         RETN
  839. SUB_04BE    ENDP
  840.  
  841.  
  842. ;==========================================================================
  843. ;                   SUBROUTINE
  844. ;==========================================================================
  845.  
  846. SUB_04D7    PROC    NEAR
  847.         CALL    RD_SK_SPTB_1238
  848.         CMP    AL,3BH            ; ';'
  849.         JNE    LOC_04E1
  850.         POP    AX
  851.         JMP    SHORT SCAN_2_EOL_04A2
  852. LOC_04E1:
  853.         XOR    BX,BX
  854.         CMP    AL,26H            ; '&'
  855.         JE    LOC_04EE
  856. ;**CHANGED**    MOV    BYTE PTR DS:ALTR_J_B_0943+1,0    ; (72B5:0944=0AH)
  857.         MOV    BYTE PTR DS:OLD_JUMP_0944,0FFH    ; don't take jump
  858.         JMP    SHORT LOC_04F6
  859. LOC_04EE:
  860.         CALL    RD_SK_SPTB_1238
  861.         JMP    SHORT LOC_04F6
  862. LOC_04F3:
  863.         CALL    RD_NXT_BYT_1B1B
  864. LOC_04F6:
  865.         MOV    AH,AL
  866.  
  867.                         ; ****** Error, 'A' s/b 'a' ******
  868. ;**ERROR**    CMP    AL,41H            ; 'A'  -typographical error-
  869.         CMP    AL,61H            ; 'a'
  870.         JB    LOC_04FE
  871.         AND    AL,5FH            ; clear bit-5, strip case
  872. LOC_04FE:
  873.         SUB    AL,30H            ; '0'
  874.         JC    LOC_0521
  875.         CMP    AL,0AH            ; number TEN
  876.         JB    LOC_0508
  877.         SUB    AL,7            ; ASCII HEX conversion
  878. LOC_0508:
  879.         CMP    AL,0FH
  880.         JA    LOC_0521
  881.         MOV    CX,4
  882.  
  883. LOCLOOP_050F:
  884.         ADD    BX,BX
  885.         JC    LOC_051B
  886.         LOOP    LOCLOOP_050F        ; Loop if cx > 0
  887.  
  888.         MOV    AH,0
  889.         ADD    BX,AX
  890.         JNC    LOC_04F3
  891. LOC_051B:
  892.         MOV    DX,OFFSET MS_HXVL_ER_2771    ; (72B5:2771=48H)
  893.         JMP    LOC_0214
  894. LOC_0521:
  895.         CMP    AH,20H            ; ' '
  896.         JE    LOC_RET_0539
  897.         CMP    AH,9                    ; Tab
  898.         JE    LOC_RET_0539
  899.         AND    AH,5FH            ; clear bit-5, strip case
  900.         CMP    AH,48H            ; 'H'
  901.         JE    LOC_RET_0539
  902.         CMP    AH,1AH                  ; EOF
  903.         STC                ; Set carry flag
  904.         JNZ    LOC_051B                ; read next char
  905.  
  906. LOC_RET_0539:
  907.         RETN
  908. SUB_04D7    ENDP
  909.  
  910.  
  911. ;==========================================================================
  912. ;                   SUBROUTINE
  913. ;==========================================================================
  914.  
  915. SUB_053A    PROC    NEAR
  916.         CALL    SCAN_SPTAB_0E3F
  917.         JNZ    LOC_0548
  918.         CMP    DI,OFFSET FCB3_2A0F    ; (72B5:2A0F=61H)
  919.         JE    LOC_0563
  920.         MOV    SI,OFFSET DATA_2150_CON    ; (72B5:2150=43H)
  921. LOC_0548:
  922.         MOV    AX,2901H
  923.         INT    21H            ; DOS Services  ah=function 29h
  924.                         ;  parse filenam @ds:si FCBes:di
  925.         OR    AL,AL
  926.         JNZ    LOC_0558
  927.         CMP    BYTE PTR [DI+1],20H    ; ' '
  928.         JE    LOC_0558
  929.         RETN
  930. LOC_0558:
  931.         MOV    SI,DI
  932.         CALL    SUB_06B1
  933.         MOV    DX,OFFSET MS_FILE_SPEC_ER    ; (72B5:27A5=20H)
  934.         JMP    LOC_0214
  935. LOC_0563:
  936.         MOV    WORD PTR FCB3_NAME_2A10,20H    ; (72B5:2A10=646EH)
  937.         JMP    LOC_0226
  938. SUB_053A    ENDP
  939.  
  940.  
  941. ;==========================================================================
  942. ;                   SUBROUTINE
  943. ;==========================================================================
  944.  
  945. SUB_056C    PROC    NEAR
  946.         MOV    DI,OFFSET FCB3_2A0F    ; (72B5:2A0F=61H)
  947.         CALL    SUB_053A
  948.  
  949. ;==== External Entry into Subroutine ======================================
  950.  
  951. SUB_0572:
  952.         MOV    DATA_2915,DATA_2E9E_E    ; (=0) (=0)
  953.         MOV    AL,0
  954. ;**CHANGED**    MOV    DS:ALTR_B_0F47+1,AL    ; (72B5:0F48=0)
  955.         MOV    DS:OLD_B_0F48,AL    ; (72B5:0F48=0)
  956.         MOV    BYTE PTR DATA_2861,1    ; (=0)
  957.         MOV    DATA_286D,AL        ; (=0)
  958.         MOV    DATA_285A,100H        ; (=0)
  959.         RETN
  960. SUB_056C    ENDP
  961.  
  962.  
  963. ;==========================================================================
  964. ;                   SUBROUTINE
  965. ;==========================================================================
  966.  
  967. SUB_058C    PROC    NEAR
  968. ;**CHANGED**    MOV    DI,OFFSET DATA_298B    ; 132-byte line buffer
  969.         MOV    DI,OFFSET LINE_BUF_132CHR ; 132-byte line buffer
  970.         PUSH    CX
  971.         PUSH    SI
  972.         PUSH    DI
  973.         MOV    DX,AX
  974.         CALL    CNV_W_2_HX_151D
  975.         POP    DI
  976.         XCHG    SI,DI
  977.         MOV    CX,4
  978.  
  979. LOCLOOP_059D:
  980.         LODSB                ; String [si] to al
  981.         CALL    WR_CHR_AL_05C1
  982.         LOOP    LOCLOOP_059D        ; Loop if cx > 0
  983.  
  984.         POP    SI
  985.         POP    CX
  986.         RETN
  987. SUB_058C    ENDP
  988.  
  989.  
  990. ;==========================================================================
  991. ;                   SUBROUTINE
  992. ;==========================================================================
  993.  
  994. SUB_05A6    PROC    NEAR
  995.         MOV    AX,DX
  996.         PUSH    DI
  997.         CALL    SUB_058C
  998.         POP    DI
  999.         RETN
  1000. SUB_05A6    ENDP
  1001.  
  1002.  
  1003. ;==========================================================================
  1004. ;                   SUBROUTINE
  1005. ;==========================================================================
  1006.  
  1007. WR_CRLF_05AE    PROC    NEAR
  1008.         MOV    AL,0DH            ; CR
  1009.         CALL    WR_CHR_AL_05C1
  1010.         MOV    AL,0AH            ; LF
  1011. ;***TEST1    DB    0A9H            ; TEST - (JMP SHORT LOC_05C1)
  1012.         JMP    SHORT WR_CHR_AL_05C1
  1013.  
  1014. ;==== External Entry into Subroutine ======================================
  1015.  
  1016. WR_L_05B6:
  1017.         MOV    AL,4CH            ; 'L'
  1018. ;***TEST2    DB    0A9H            ; TEST - (JMP SHORT LOC_05C1)
  1019.         JMP    SHORT WR_CHR_AL_05C1
  1020.  
  1021. ;==== External Entry into Subroutine ======================================
  1022.  
  1023. WR_SEMI_05B9:
  1024. LOC_05B9:
  1025.         MOV    AL,3BH            ; ';'
  1026. ;***TEST3    DB    0A9H            ; TEST - (JMP SHORT LOC_05C1)
  1027.         JMP    SHORT WR_CHR_AL_05C1
  1028.  
  1029. ;==== External Entry into Subroutine ======================================
  1030.  
  1031. SUB_05BC:
  1032.         MOV    AL,9            ; TAB
  1033. ;***TEST4    DB    0A9H            ; TEST - (JMP SHORT LOC_05C1)
  1034.         JMP    SHORT WR_CHR_AL_05C1
  1035.  
  1036. ;==== External Entry into Subroutine ======================================
  1037.  
  1038. SUB_05BF:
  1039.         MOV    AL,20H            ; ' '
  1040.  
  1041. ;==== External Entry into Subroutine ======================================
  1042.  
  1043. WR_CHR_AL_05C1:
  1044. ;**CHANGED**    TEST    BYTE PTR DATA_2870,0FFH    ; (=0FFH)
  1045.         TEST    BYTE PTR SW_O_OUTPUT_LST,0FFH ; (=0FFH)
  1046.         JZ    LOC_RET_0600
  1047.         CMP    BYTE PTR DATA_2861,1    ; (=0)
  1048.         JE    LOC_RET_0600
  1049.         PUSH    AX
  1050.         PUSH    DI
  1051.         MOV    DI,OFFSET DATA_2848    ; (=0)
  1052.         INC    BYTE PTR [DI]
  1053.         CMP    AL,9
  1054.         JNE    LOC_05E0
  1055.         ADD    BYTE PTR [DI],7
  1056.         AND    BYTE PTR [DI],0F8H    ; clear low 3-bits
  1057. LOC_05E0:
  1058.         MOV    DI,DATA_2881        ; (=0)
  1059.         AND    AL,7FH            ; clear bit-7
  1060.         STOSB                ; Store al to es:[di]
  1061.         CMP    DI,DATA_2E9E_E        ; (=0)
  1062.         JNE    LOC_05F0
  1063.         CALL    SUB_062D
  1064. LOC_05F0:
  1065.         MOV    DATA_2881,DI        ; (=0)
  1066.         INC    DATA_2849        ; (=0)
  1067.         JNZ    LOC_05FE
  1068.         INC    DATA_284B        ; (=0)
  1069. LOC_05FE:
  1070.         POP    DI
  1071.         POP    AX
  1072.  
  1073. LOC_RET_0600:
  1074.         RETN
  1075. WR_CRLF_05AE    ENDP
  1076.  
  1077.  
  1078. ;==========================================================================
  1079. ;                   SUBROUTINE
  1080. ;==========================================================================
  1081.  
  1082. WR_STRING_0601    PROC    NEAR
  1083. LOC_0601:
  1084.         LODSB                ; String [si] to al
  1085.         TEST    AL,7FH
  1086.         JZ    LOC_RET_060D
  1087.         CALL    WR_CHR_AL_05C1
  1088.         AND    AL,80H            ; clear all but bit-7
  1089.         JZ    LOC_0601
  1090.  
  1091. LOC_RET_060D:
  1092.         RETN
  1093. WR_STRING_0601    ENDP
  1094.  
  1095.  
  1096. ;==========================================================================
  1097. ;                   SUBROUTINE
  1098. ;==========================================================================
  1099.  
  1100. SUB_060E    PROC    NEAR
  1101.         PUSH    AX
  1102.  
  1103. LOCLOOP_060F:
  1104.         MOV    AH,DATA_2848        ; (=0)
  1105.         AND    AH,7            ; clear all but 3 LSB's
  1106.         MOV    AL,7
  1107.         SUB    AL,AH
  1108.         CBW                ; Convrt byte to word
  1109.         CMP    CX,AX
  1110.         JBE    LOC_0626
  1111.         SUB    CX,AX
  1112.         CALL    SUB_05BC
  1113.         JMP    SHORT LOC_0629
  1114. LOC_0626:
  1115.         CALL    SUB_05BF
  1116. LOC_0629:
  1117.         LOOP    LOCLOOP_060F        ; Loop if cx > 0
  1118.  
  1119.         POP    AX
  1120.         RETN
  1121. SUB_060E    ENDP
  1122.  
  1123.  
  1124. ;==========================================================================
  1125. ;                   SUBROUTINE
  1126. ;==========================================================================
  1127.  
  1128. SUB_062D    PROC    NEAR
  1129.         PUSH    DX
  1130.         MOV    DX,OFFSET DTA4_2C9E    ; (72B5:2C9E=0)
  1131.         MOV    AH,1AH
  1132.         INT    21H            ; DOS Services  ah=function 1Ah
  1133.                         ;  set DTA to ds:dx
  1134.         XCHG    DX,DI
  1135.         MOV    DX,OFFSET FCB4_2A34    ; (72B5:2A34=0DH)
  1136.         MOV    AH,15H
  1137.         INT    21H            ; DOS Services  ah=function 15h
  1138.                         ;  sequent file write FCB @ds:dx
  1139.         OR    AL,AL
  1140.         POP    DX
  1141.         JNZ    LOC_0644
  1142.         RETN
  1143. LOC_0644:
  1144.         MOV    DX,OFFSET MS_DSKFULL_26AB    ; (72B5:26AB=49H)
  1145.         JMP    LOC_0214
  1146. SUB_062D    ENDP
  1147.  
  1148.  
  1149. ;==========================================================================
  1150. ;                   SUBROUTINE
  1151. ;==========================================================================
  1152.  
  1153. SUB_064A    PROC    NEAR
  1154.  
  1155.         TEST    OLD_RET_NOP_064A,0FFH
  1156.         JNZ    LOC_064B        ; jump if old NOP condition
  1157.  
  1158. ALTR_OPB_064A:                    ; Altered code -- RETN or NOP
  1159.         RETN
  1160. SUB_064A    ENDP
  1161.  
  1162. LOC_064B:
  1163. ;**CHANGED**    MOV    BYTE PTR DS:ALTR_OPB_064A+0,0C3H    ; (72B5:064A=0C3H)
  1164.         MOV    OLD_RET_NOP_064A,0    ; (=0C3H) RETN
  1165.         MOV    AL,1AH
  1166.         CALL    WR_CHR_AL_05C1
  1167.         MOV    BX,DATA_2881        ; (=0)
  1168.         SUB    BX,OFFSET DTA4_2C9E    ; (72B5:2C9E=0)
  1169.         PUSHF
  1170.         JZ    LOC_0663
  1171.         CALL    SUB_062D
  1172. LOC_0663:
  1173.         POPF
  1174.         JZ    LOC_0677
  1175.         MOV    AX,200H
  1176.         SUB    AX,BX
  1177.         JZ    LOC_0677
  1178.         SUB    WORD PTR FCB4_FILSZ_2A44,AX    ; (72B5:2A44=646FH)
  1179.         JNC    LOC_0677
  1180.         DEC    WORD PTR FCB4_FLSZH_2A46    ; (72B5:2A46=2065H)
  1181. LOC_0677:
  1182.         MOV    DX,OFFSET FCB4_2A34    ; (72B5:2A34=0DH)
  1183.         MOV    AH,10H
  1184.         INT    21H            ; DOS Services  ah=function 10h
  1185.                         ;  close file, FCB @ ds:dx
  1186.         OR    AL,AL
  1187.         JNZ    LOC_06AB
  1188.         MOV    DX,OFFSET MS_BYT_N_OT_FLE    ; (72B5:278E=42H)
  1189.         MOV    AH,9
  1190.         INT    21H            ; DOS Services  ah=function 09h
  1191.                         ;  display char string at ds:dx
  1192. ;**CHANGED**    MOV    DI,OFFSET DATA_298B    ; 132-byte line buffer
  1193.         MOV    DI,OFFSET LINE_BUF_132CHR ; 132-byte line buffer
  1194.         PUSH    DI            ; save as pointer to display buf
  1195.         MOV    DX,DATA_284B        ; data for HEX ASCII conversion
  1196.         OR    DX,DX            ; test for zero
  1197.         JZ    LOC_0698
  1198.         CALL    CNV_W_2_HX_151D
  1199. LOC_0698:
  1200.         MOV    DX,DATA_2849        ; data for HEX ASCII conversion
  1201.         CALL    CNV_W_2_HX_151D
  1202.         MOV    AX,2448H        ; 'H$' add terminal character
  1203.         STOSW                ; Store ax to es:[di]
  1204.         POP    DX            ; get pointer to display buf
  1205.         MOV    AH,9
  1206.         INT    21H            ; DOS Services  ah=function 09h
  1207.                         ;  display char string at ds:dx
  1208.         JMP    SHORT LOC_06FB
  1209.     ;***    DB    90H
  1210. LOC_06AB:
  1211.         MOV    DX,OFFSET MS_NOCLOSE_265F    ; (72B5:265F=0DH)
  1212.         JMP    LOC_0214
  1213.  
  1214. ;==========================================================================
  1215. ;                   SUBROUTINE
  1216. ;==========================================================================
  1217.  
  1218. SUB_06B1    PROC    NEAR
  1219.         PUSH    CX
  1220.         LODSB                ; String [si] to al
  1221.         CMP    AL,0
  1222.         JE    LOC_06C6
  1223.         CMP    BYTE PTR [SI],20H    ; ' '
  1224.         JE    LOC_06C6
  1225.         OR    AL,40H            ; '@'
  1226.         CALL    DSPY_CHR_AL_070
  1227.         MOV    AL,3AH            ; ':'
  1228.         CALL    DSPY_CHR_AL_070
  1229. LOC_06C6:
  1230.         LODSB                ; String [si] to al
  1231.         MOV    CX,8
  1232.         CMP    AL,20H            ; ' '
  1233.         JNE    LOC_06D4
  1234.         CALL    DSPY_DOT_0703
  1235.         JMP    SHORT LOC_06EA
  1236.  
  1237. LOCLOOP_06D3:
  1238.         LODSB                ; String [si] to al
  1239. LOC_06D4:
  1240.         CALL    SUB_06EC
  1241.         LOOP    LOCLOOP_06D3        ; Loop if cx > 0
  1242.  
  1243.         CMP    BYTE PTR [SI],20H    ; ' '
  1244.         JE    LOC_06EA
  1245.         MOV    CX,3
  1246.         CALL    DSPY_DOT_0703
  1247.  
  1248. LOCLOOP_06E4:
  1249.         LODSB                ; String [si] to al
  1250.         CALL    SUB_06EC
  1251.         LOOP    LOCLOOP_06E4        ; Loop if cx > 0
  1252.  
  1253. LOC_06EA:
  1254.         POP    CX
  1255.         RETN
  1256. SUB_06B1    ENDP
  1257.  
  1258.  
  1259. ;==========================================================================
  1260. ;                   SUBROUTINE
  1261. ;==========================================================================
  1262.  
  1263. SUB_06EC    PROC    NEAR
  1264.         CMP    AL,20H            ; ' '
  1265.         JNE    LOC_0708
  1266.         RETN
  1267.  
  1268. ;==== External Entry into Subroutine ======================================
  1269. ;
  1270. ;         Buffered Keyboard Input
  1271.  
  1272. SUB_06F1:
  1273.         MOV    DX,OFFSET KBD_BUF_2968    ; (72B5:2968=20H)
  1274.         MOV    AH,0AH
  1275.         INT    21H            ; DOS Services  ah=function 0Ah
  1276.                         ;  get keybd line, put at ds:dx
  1277.         MOV    SI,OFFSET DATA_296A    ; Keyboard line buffer
  1278.  
  1279. ;==== External Entry into Subroutine ======================================
  1280.  
  1281. DSPY_CRLF_06FB:
  1282. LOC_06FB:
  1283.         MOV    AL,0DH            ; CR
  1284.         CALL    DSPY_CHR_AL_070
  1285.         MOV    AL,0AH            ; LF
  1286. ;***TEST5    DB    0A9H            ; TEST skips next instruction
  1287.         JMP    SHORT DSPY_CHR_AL_070
  1288.  
  1289. ;==== External Entry into Subroutine ======================================
  1290.  
  1291. DSPY_DOT_0703:
  1292.         MOV    AL,2EH            ; '.'
  1293. ;***TEST6    DB    0A9H            ; TEST skips next instruction
  1294. ;        JMP    SHORT DSPY_CHR_AL_070
  1295. ;SUB_0706:
  1296. ;        MOV    AL,20H            ; ' '
  1297. SUB_06EC    ENDP
  1298.  
  1299.  
  1300. ;==========================================================================
  1301. ;                   SUBROUTINE
  1302. ;==========================================================================
  1303.  
  1304. DSPY_CHR_AL_070    PROC    NEAR
  1305. LOC_0708:
  1306.         PUSH    AX
  1307.         PUSH    DX
  1308.         AND    AL,7FH            ; clear bit-7
  1309.         XCHG    AX,DX
  1310.         MOV    AH,2
  1311.         INT    21H            ; DOS Services  ah=function 02h
  1312.                         ;  display char dl
  1313.         POP    DX
  1314.         POP    AX
  1315.         RETN
  1316. DSPY_CHR_AL_070    ENDP
  1317.  
  1318.  
  1319. ;==========================================================================
  1320. ;                   SUBROUTINE
  1321. ;==========================================================================
  1322.  
  1323. SUB_0714    PROC    NEAR
  1324.         CMP    BYTE PTR DATA_2861,2    ; (=0)
  1325.         JE    LOC_0722
  1326.  
  1327. ;==== External Entry into Subroutine ======================================
  1328.  
  1329. SUB_071B:
  1330.         CALL    SUB_02D0
  1331.         MOV    DATA_288F,DI        ; (=0)
  1332. LOC_0722:
  1333.         MOV    BYTE PTR DATA_286E,0    ; (=0)
  1334.  
  1335.                         ; 24H s/b LOC_RET_10A7-SUB_1081-2
  1336. ;**CHANGED**    MOV    BYTE PTR DS:ALTR_J_B_1081+1,24H    ; (72B5:1082=24H) '$'
  1337. ;**CHANGED**    MOV    BYTE PTR DS:ALTR_J_B_1081+1,LOC_RET_10A7-SUB_1081-2
  1338.         MOV    BYTE PTR DS:OLD_JUMP_1082,0    ;take jump
  1339.         MOV    BX,DATA_2893        ; (=0)
  1340.         TEST    BYTE PTR [BX],80H
  1341.         JNZ    LOC_073A
  1342.         MOV    BYTE PTR DATA_2888,0FFH    ; (=0)
  1343. LOC_073A:
  1344.         CALL    SUB_0C37
  1345. ;**CHANGED**    MOV    BYTE PTR DATA_2870,0FFH    ; (=0FFH)
  1346.         MOV    BYTE PTR SW_O_OUTPUT_LST,0FFH ; (=0FFH)
  1347.         JNC    LOC_0747
  1348.         JMP    LOC_0223
  1349. LOC_0747:
  1350.         MOV    BP,DATA_2893        ; (=0)
  1351.         CMP    BYTE PTR DATA_2861,1    ; (=0)
  1352.         JNE    LOC_075C
  1353.         MOV    DX,OFFSET MS_BLDG_REF_TBL    ; (72B5:2808=42H)
  1354.         MOV    AH,9
  1355.         INT    21H            ; DOS Services  ah=function 09h
  1356.                         ;  display char string at ds:dx
  1357.         JMP    SHORT LOC_0799
  1358.     ;***    DB    90H
  1359. LOC_075C:
  1360.         CALL    SUB_0E4C
  1361.         CALL    SUB_0B70
  1362.         CALL    SUB_0C2E
  1363.         JNC    LOC_076A
  1364.         JMP    LOC_0214
  1365. LOC_076A:
  1366. ;**CHANGED**    TEST    BYTE PTR DATA_2878,0FFH    ; (=0FFH)
  1367.         TEST    BYTE PTR SW_M_MACRO_LIST,0FFH ; (=0FFH)
  1368.         JZ    LOC_0789
  1369.         MOV    SI,OFFSET MAC_PATCH83    ; (72B5:24E0=0)
  1370. LOC_0774:
  1371.         LODSB                ; String [si] to al
  1372.         CMP    AL,0FFH
  1373.         JE    LOC_0789
  1374.         CMP    AL,1
  1375.         JNE    LOC_0782
  1376.         CALL    WR_STRING_0601
  1377.         JMP    SHORT LOC_0774
  1378. LOC_0782:
  1379.         LODSB                ; String [si] to al
  1380.         TEST    AL,80H
  1381.         JNZ    LOC_0774
  1382.         JMP    SHORT LOC_0782
  1383. LOC_0789:
  1384.         MOV    SI,OFFSET MN_DOT_RADIX_16    ; (72B5:25C5=2EH)
  1385. ;**CHANGED**    TEST    BYTE PTR RAD16_FLAG_2877,0FFH    ; (72B5:2877=0FFH)
  1386.         TEST    BYTE PTR SW_H_HEX_SUFFIX,0FFH    ; (72B5:2877=0FFH)
  1387.         JNZ    LOC_0796
  1388.         MOV    SI,OFFSET MN_CRLF_INIT_VL    ; (72B5:25D0=4CH)
  1389. LOC_0796:
  1390.         CALL    WR_STRING_0601
  1391. LOC_0799:
  1392.         CMP    BYTE PTR DATA_2887,80H    ; (=0)
  1393.         JNE    LOC_07A5
  1394.         MOV    BYTE PTR DATA_2887,0    ; (=0)
  1395. LOC_07A5:
  1396.         MOV    SI,DATA_2889        ; (=0)
  1397.         CMP    SI,DATA_288F        ; (=0)
  1398.         JB    LOC_07B2
  1399. LOC_07AF:
  1400.         JMP    LOC_088F
  1401. LOC_07B2:
  1402.         MOV    AX,DATA_2858        ; (=0)
  1403.         CMP    AX,[SI]
  1404.         JB    LOC_07AF
  1405.         MOV    CX,SI
  1406.         LODSW                ; String [si] to ax
  1407.         LODSB                ; String [si] to al
  1408.         PUSH    AX
  1409.         LODSB                ; String [si] to al
  1410. ;**CHANGED**    MOV    DS:ALTR_W_1123+1,SI    ; (72B5:1124=0)
  1411.         MOV    DS:OLD_W_1124,SI    ; (72B5:1124=0)
  1412.         AND    AL,7FH            ; clear bit-7
  1413.         MOV    AH,0
  1414.         ADD    SI,AX
  1415.         POP    AX
  1416.         MOV    DATA_2889,SI        ; (=0)
  1417.         CMP    AL,9
  1418.         JNE    LOC_0817
  1419.         CMP    SI,DATA_288F        ; (=0)
  1420.         JAE    LOC_07FE
  1421.         TEST    BYTE PTR [SI+2],40H    ; '@'
  1422.         JZ    LOC_07FE
  1423.         MOV    SI,CX
  1424. ;**CHANGED**    MOV    DS:ALTR_W_0802+1,SI    ; (72B5:0803=0)
  1425.         MOV    DS:OLD_W_0803,SI    ; (72B5:0803=0)
  1426. ;**CHANGED**    MOV    DS:ALTR_W_08E3+1,SI    ; (72B5:08E4=0)
  1427.         MOV    DS:OLD_W_08E4,SI    ; (72B5:08E4=0)
  1428. LOC_07E8:
  1429.         ADD    SI,3
  1430.         LODSB                ; String [si] to al
  1431.         AND    AL,7FH            ; clear bit-7
  1432.         MOV    AH,0
  1433.         ADD    SI,AX
  1434.         CMP    SI,DATA_288F        ; (=0)
  1435.         JAE    LOC_07FE
  1436.         TEST    BYTE PTR [SI+2],40H    ; '@'
  1437.         JNZ    LOC_07E8
  1438. LOC_07FE:
  1439.         MOV    DATA_2889,SI        ; (=0)
  1440.  
  1441. ALTR_W_0802:                    ; Altered code
  1442. ;**CHANGED**    MOV    DI,0
  1443.         MOV    DI,OLD_W_0803
  1444.         OR    DI,DI
  1445.         JZ    LOC_0811
  1446.         MOV    BYTE PTR DATA_291B,0FFH    ; (=0)
  1447.         JMP    SHORT LOC_0888
  1448.     ;***    DB    90H
  1449. LOC_0811:
  1450.         MOV    DX,OFFSET MS_STR_SEQ_273E    ; (72B5:273E=55H)
  1451.         JMP    LOC_0214
  1452. LOC_0817:
  1453.         TEST    AL,20H            ; ' ' space
  1454.         JNZ    LOC_0851
  1455.         CMP    AL,0AH            ; number TEN
  1456.         JB    LOC_0866
  1457. LOC_081F:
  1458.         CMP    SI,DATA_288F        ; (=0)
  1459.         JAE    LOC_0888
  1460.         LODSW                ; String [si] to ax
  1461.         MOV    CX,AX
  1462.         MOV    DATA_2885,AX        ; (=0)
  1463.         LODSB                ; String [si] to al
  1464.         PUSH    AX
  1465.         LODSB                ; String [si] to al
  1466.         AND    AL,7FH            ; clear bit-7
  1467.         MOV    AH,0
  1468.         ADD    SI,AX
  1469.         POP    AX
  1470.         SUB    AL,10H
  1471.         JC    LOC_088C
  1472.         CMP    AL,3
  1473.         JA    LOC_088C
  1474.         SHL    AL,1            ; Shift w/zeros fill
  1475.         MOV    AH,0
  1476. ;**CHANGED**    MOV    BYTE PTR DS:ALTR_J_B_1081+1,AH    ; (72B5:1082=24H)
  1477.         MOV    BYTE PTR DS:OLD_JUMP_1082,0FFH    ;don't take jump
  1478.         MOV    BX,AX
  1479.         MOV    DATA_2823[BX],CX    ; 4-words indexed
  1480.         MOV    DATA_2889,SI        ; (=0)
  1481.         JMP    SHORT LOC_081F
  1482. LOC_0851:
  1483.         MOV    BL,AL
  1484.         AND    BL,0CFH            ; clear bits 4 & 5
  1485.         MOV    BH,0
  1486.         TEST    AL,10H            ; check if bit-4 is zero
  1487.         MOV    AL,BH
  1488.         JZ    LOC_0860
  1489.         NOT    AL
  1490. LOC_0860:
  1491. ;**CHANGED**    MOV    DATA_2870[BX],AL    ; (=0FFH)
  1492.         MOV    SEQ_SW_BYTES[BX],AL    ; (=0FFH)
  1493.         JMP    SHORT LOC_0888
  1494. LOC_0866:
  1495.         MOV    DATA_2887,AL        ; (=0)
  1496.         CMP    AL,6
  1497.         JNE    LOC_0872
  1498.         MOV    BYTE PTR DATA_2887,80H    ; (=0)
  1499. LOC_0872:
  1500.         MOV    BYTE PTR DATA_291B,0    ; (=0)
  1501.         MOV    DATA_2919,0        ; (=0)
  1502.         MOV    BYTE PTR DATA_2856,0    ; (=0)
  1503. ;**CHANGED**    MOV    AX,DS:ALTR_W_0802+1    ; (72B5:0803=0)
  1504.         MOV    AX,DS:OLD_W_0803    ; (72B5:0803=0)
  1505. ;**CHANGED**    MOV    DS:ALTR_W_08E3+1,AX    ; (72B5:08E4=0)
  1506.         MOV    DS:OLD_W_08E4,AX    ; (72B5:08E4=0)
  1507. LOC_0888:
  1508.         LODSW                ; String [si] to ax
  1509.         MOV    DATA_2885,AX        ; (=0)
  1510. LOC_088C:
  1511.         JMP    LOC_07A5
  1512. LOC_088F:
  1513.         XOR    AX,AX
  1514. ;**CHANGED**    MOV    DS:ALTR_W_09E2+1,AX    ; (72B5:09E3=0FFFFH)
  1515.         MOV    DS:OLD_W_09E3,AX    ; (72B5:09E3=0FFFFH)
  1516.         MOV    DATA_2854,AX        ; (Tab counter ?)
  1517.         MOV    DATA_2846,AL        ; (=0)
  1518.         MOV    DATA_2847,AL        ; (=0)
  1519.         MOV    DATA_285D,AL        ; (=0)
  1520.         MOV    DATA_285C,AL        ; (=0)
  1521.         CMP    BYTE PTR DATA_2861,1    ; (=0)
  1522.         JE    LOC_08C8
  1523.         CALL    SUB_1081
  1524. LOC_08AD:
  1525.         TEST    BYTE PTR DATA_2888,0FFH    ; (=0)
  1526.         JZ    LOC_08C5
  1527.         MOV    AX,[BP+1]
  1528.         CMP    AX,DATA_2858        ; (=0)
  1529.         JA    LOC_08C5
  1530.         CALL    SUB_0FA8
  1531.         CALL    SUB_10A8
  1532.         JZ    LOC_08AD
  1533. LOC_08C5:
  1534.         CALL    SUB_05BC
  1535.  
  1536. LOC_08C8:                    ; 0AH s/b LOC_094F-ALTR_J_B_0943-2
  1537. ;**CHANGED**    MOV    BYTE PTR DS:ALTR_J_B_0943+1,0AH    ; (72B5:0944=0AH)
  1538. ;**CHANGED**    MOV    BYTE PTR DS:ALTR_J_B_0943+1,LOC_094F-ALTR_J_B_0943-2
  1539.         MOV    BYTE PTR DS:OLD_JUMP_0944,0    ; take jump
  1540.         TEST    BYTE PTR DATA_2856,0FFH    ; (=0)
  1541.         JNZ    LOC_0917
  1542.         TEST    BYTE PTR DATA_291B,0FFH    ; (=0)
  1543.         JZ    LOC_0917
  1544.         TEST    DATA_2919,0FFFFH    ; (=0)
  1545.         JNZ    LOC_0917
  1546.  
  1547. ALTR_W_08E3:                    ; Altered code
  1548. ;**CHANGED**    MOV    SI,0
  1549.         MOV    SI,OLD_W_08E4
  1550. LOC_08E6:
  1551.         LEA    SI,[SI+3]        ; Load effective addr
  1552.         LODSB                ; String [si] to al
  1553.         AND    AL,7FH            ; clear bit-7
  1554.         MOV    AH,0
  1555.         ADD    SI,AX
  1556.         CMP    SI,DATA_288F        ; (=0)
  1557.         JAE    LOC_08FC
  1558.         TEST    BYTE PTR [SI+2],40H    ; '@'
  1559.         JNZ    LOC_0902
  1560. LOC_08FC:
  1561. ;**CHANGED**    MOV    SI,DS:ALTR_W_0802+1    ; (72B5:0803=0)
  1562.         MOV    SI,DS:OLD_W_0803    ; (72B5:0803=0)
  1563.         JMP    SHORT LOC_08E6
  1564. LOC_0902:
  1565. ;**CHANGED**    MOV    DS:ALTR_W_08E3+1,SI    ; (72B5:08E4=0)
  1566.         MOV    DS:OLD_W_08E4,SI    ; (72B5:08E4=0)
  1567.         LODSW                ; String [si] to ax
  1568.         MOV    DATA_2919,AX        ; (=0)
  1569.         LODSB                ; String [si] to al
  1570.         AND    AL,3FH            ; clear bits 6 & 7
  1571.         MOV    DATA_2887,AL        ; (=0)
  1572.         LODSB                ; String [si] to al
  1573.         AND    AL,7FH            ; clear bit-7
  1574.         MOV    AH,0
  1575.         ADD    SI,AX
  1576. LOC_0917:
  1577.         MOV    BYTE PTR DATA_286E,1    ; (=0)
  1578. ;**CHANGED**    MOV    DI,OFFSET DATA_298B    ; 132-byte line buffer
  1579.         MOV    DI,OFFSET LINE_BUF_132CHR ; 132-byte line buffer
  1580.         MOV    BYTE PTR [DI],80H
  1581.         CALL    SUB_165A
  1582.         MOV    BH,0
  1583.         MOV    DATA_2848,BH        ; (=0)
  1584.         MOV    BL,DATA_2887        ; (=0)
  1585.         AND    BL,7FH            ;*** mask low 7-bits ERROR?
  1586.         ADD    BX,BX
  1587.         CALL    WORD PTR DATA_1BA9[BX]    ;*(72B5:1BA9=1277H)  9 entries
  1588.         MOV    AH,0BH
  1589.         INT    21H            ; DOS Services  ah=function 0Bh
  1590.                         ;  if keybd char available,al=FF
  1591.         CMP    BYTE PTR DATA_2861,1    ; (=0)
  1592.         JE    LOC_0984
  1593.  
  1594. ALTR_J_B_0943:                    ; Altered code
  1595. ;**CHANGED**    JMP    SHORT LOC_094F
  1596.         TEST    BYTE PTR OLD_JUMP_0944,0FFH ; test for jump
  1597.         JZ    LOC_094F        ; if zero, take jump
  1598.  
  1599. ALTR_W_0945:                    ; Altered code
  1600. ;**CHANGED**    MOV    DX,0
  1601.         MOV    DX,OLD_W_0946        ;(immediate) operand word
  1602.         MOV    AX,3B09H        ; "TAB Semicolon"
  1603.         STOSW                ; Store ax to es:[di]
  1604.         CALL    CNV_W_2_HX_151D
  1605. LOC_094F:
  1606.         TEST    BYTE PTR DATA_2866,0FFH    ; (=0)
  1607.         JZ    LOC_0963
  1608.         MOV    AL,9            ; TAB
  1609.         STOSB                ; Store al to es:[di]
  1610.         CALL    SUB_181D
  1611.         MOV    AL,9            ; TAB
  1612.         STOSB                ; Store al to es:[di]
  1613.         MOV    AX,3F3FH        ; '??'
  1614.         STOSW                ; Store ax to es:[di]
  1615. LOC_0963:
  1616.         OR    BYTE PTR [DI-1],80H
  1617.         MOV    SI,OPW_TBL_WD_285F    ; (72B5:285F=0)
  1618.         AND    SI,0FFFH        ; keep low 12-bits
  1619.         ADD    SI,OFFSET MN_AAA    ; (72B5:20F4=41H)
  1620.         CALL    WR_STRING_0601
  1621. ;**CHANGED**    MOV    SI,OFFSET DATA_298B    ; 132-byte line buffer
  1622.         MOV    SI,OFFSET LINE_BUF_132CHR ; 132-byte line buffer
  1623.         TEST    BYTE PTR [SI],7FH
  1624.         JZ    LOC_0984
  1625. LOC_097E:
  1626.         CALL    SUB_05BC
  1627.         CALL    WR_STRING_0601
  1628. LOC_0984:
  1629.         MOV    DI,DATA_288D        ; (=0)
  1630.         CMP    DI,DATA_2893        ; (=0)
  1631.         JAE    LOC_09AB
  1632.         MOV    AX,[DI]
  1633.         CMP    AX,DATA_2858        ; (=0)
  1634.         JA    LOC_09AB
  1635.         ADD    DI,2
  1636.         MOV    DATA_288D,DI        ; (=0)
  1637.         MOV    SI,OFFSET MS_RELOC_275E    ; (72B5:275E=3BH)
  1638.  
  1639. ALTR_W_09A0:                    ; Altered code
  1640. ;**CHANGED**    MOV    DX,0
  1641.         MOV    DX,OLD_W_09A1
  1642.         CALL    SUB_0E70
  1643.         OR    BYTE PTR [DI],1
  1644.         JMP    SHORT LOC_097E
  1645. LOC_09AB:
  1646.         MOV    SI,OFFSET DATA_2879    ; (72B5:2879=9)
  1647.         TEST    BYTE PTR DATA_2887,7FH    ; (=0)
  1648.         JNZ    LOC_09BE
  1649.         TEST    BYTE PTR [SI+3],7FH
  1650.         JZ    LOC_09BE
  1651.         CALL    WR_STRING_0601
  1652. LOC_09BE:
  1653. ;**CHANGED**    TEST    BYTE PTR DATA_2870,0FFH    ; (=0FFH)
  1654.         TEST    BYTE PTR SW_O_OUTPUT_LST,0FFH    ; (=0FFH)
  1655.         JNZ    LOC_09C8
  1656.         JMP    LOC_0AAA
  1657. LOC_09C8:
  1658. ;**CHANGED**    MOV    BYTE PTR DS:ALTR_B_0A0E+2,28H    ; (72B5:0A10=40H) '('
  1659.         MOV    BYTE PTR DS:OLD_B_0A10,28H    ; (72B5:0A10=40H) '('
  1660. ;**CHANGED**    TEST    WORD PTR DS:ALTR_W_09E2+1,0FFFFH    ; (72B5:09E3=0FFFFH)
  1661.         TEST    WORD PTR DS:OLD_W_09E3,0FFFFH    ; (72B5:09E3=0FFFFH)
  1662.         JZ    LOC_09ED
  1663. LOC_09D5:
  1664.         CALL    SUB_05BC
  1665.         CMP    BYTE PTR DATA_2848,1EH    ; (=0) 30 decimal
  1666.         JB    LOC_09D5
  1667.         CALL    WR_SEMI_05B9
  1668.  
  1669. ALTR_W_09E2:                    ; Altered code
  1670. ;**CHANGED**    MOV    SI,0FFFFH
  1671.         MOV    SI,OLD_W_09E3
  1672.         CALL    WR_STRING_0601
  1673. ;**CHANGED**    MOV    BYTE PTR DS:ALTR_B_0A0E+2,40H    ; (72B5:0A10=40H) '@'
  1674.         MOV    BYTE PTR DS:OLD_B_0A10,40H    ; (72B5:0A10=40H) '@'
  1675. LOC_09ED:
  1676. ;**CHANGED**    TEST    BYTE PTR DATA_2875,0FFH    ; (=0FFH)
  1677.         TEST    BYTE PTR SW_T_TRACE_OUTP,0FFH    ; (=0FFH)
  1678.         JZ    LOC_0A6A
  1679.         MOV    BL,DATA_2848        ; (=0)
  1680.         AND    BL,0F8H            ; clear low 3-bits
  1681. LOC_09FB:
  1682.         ADD    BL,8
  1683.         CALL    SUB_05BC
  1684.         CMP    BL,28H            ; '('
  1685.         JB    LOC_09FB
  1686. ;**CHANGED**    MOV    WORD PTR DS:ALTR_W_0A47+1,10H    ; (72B5:0A48=10H)
  1687.         MOV    WORD PTR DS:OLD_W_0A48,10H    ; (72B5:0A48=10H)
  1688.         JZ    LOC_0A35
  1689.  
  1690. ALTR_B_0A0E:                    ; Altered code
  1691. ;**CHANGED**    CMP    BL,40H            ; '@'
  1692.         CMP    BL,OLD_B_0A10        ; '@'
  1693.         JB    LOC_0A35
  1694.         CALL    WR_CRLF_05AE
  1695.         CALL    SUB_05BC
  1696.         CALL    SUB_05BC
  1697.         CALL    SUB_05BC
  1698. ;**CHANGED**    MOV    WORD PTR DS:ALTR_W_0A47+1,18H    ; (72B5:0A48=10H)
  1699.         MOV    WORD PTR DS:OLD_W_0A48,18H    ; (72B5:0A48=10H)
  1700.         CMP    DATA_2854,6        ; (Tab counter ?)
  1701.         JA    LOC_0A35
  1702.         CALL    SUB_05BC
  1703.         CALL    SUB_05BC
  1704.         CALL    SUB_05BC
  1705. LOC_0A35:
  1706.         CALL    WR_SEMI_05B9
  1707.         MOV    AX,DATA_2858        ; (=0)
  1708.         MOV    CX,DATA_2854        ; (=0)
  1709.         SUB    AX,CX
  1710. ;**CHANGED**    CMP    CX,DS:ALTR_W_0A47+1    ; (72B5:0A48=10H)
  1711.         CMP    CX,DS:OLD_W_0A48    ; (72B5:0A48=10H)
  1712.         JBE    LOC_0A4A
  1713.  
  1714. ALTR_W_0A47:                    ; Altered code
  1715. ;**CHANGED**    MOV    CX,10H
  1716.         MOV    CX,OLD_W_0A48
  1717. LOC_0A4A:
  1718.         CALL    SUB_058C
  1719.         MOV    SI,OFFSET DATA_282B    ; 24-byte buffer
  1720.  
  1721. LOCLOOP_0A50:
  1722.         CALL    SUB_05BF
  1723.         LODSB                ; String [si] to al
  1724. ;**CHANGED**    MOV    DI,OFFSET DATA_298B    ; 132-byte line buffer
  1725.         MOV    DI,OFFSET LINE_BUF_132CHR ; 132-byte line buffer
  1726.         PUSH    DI
  1727.         CALL    CNV_B_2_HX_1524
  1728.         POP    DI
  1729.         XCHG    SI,DI
  1730.         LODSB                ; String [si] to al
  1731.         CALL    WR_CHR_AL_05C1
  1732.         LODSB                ; String [si] to al
  1733.         CALL    WR_CHR_AL_05C1
  1734.         XCHG    SI,DI
  1735.         LOOP    LOCLOOP_0A50        ; Loop if cx > 0
  1736.  
  1737. LOC_0A6A:
  1738.         CALL    WR_CRLF_05AE
  1739.         TEST    BYTE PTR DATA_285D,0FFH    ; (=0)
  1740.         JZ    LOC_0A7D
  1741.         MOV    SI,OFFSET MN_TAB_NOP    ; (72B5:239D=9)
  1742.         CALL    WR_STRING_0601
  1743.         CALL    WR_CRLF_05AE
  1744.  
  1745. LOC_0A7D:    ;test for op-code 81H, possible op-code 83H optimization.
  1746.  
  1747.         CMP    BYTE PTR OPCODE_BYT_286B,81H    ; (72B5:286B=0)
  1748.         JNE    LOC_0AA0        ; Jump if not op-code 81H
  1749.  
  1750.         MOV    AL,MOD_REG_RM_286C    ; (72B5:286C=0)
  1751.         XOR    AL,0C0H            ;flip the MOD bits
  1752.         AND    AL,0C7H            ;mask out REG op-code bits
  1753.         JZ    LOC_0AA0        ;PATCH83 not used for AX reg
  1754.         TEST    AL,0C0H            ;was it MOD 11?
  1755.         JNZ    LOC_0AA0        ;PATCH83 only used for MOD 11
  1756.  
  1757.         CMP    OLD_W_0946,07FH        ;is value 0 thru 127?
  1758.         JA    LOC_0AA_NEG        ;if no, jump
  1759.  
  1760.         MOV    BYTE PTR MAC_PATCH83,1    ; (72B5:24E0=0)
  1761.         MOV    SI,OFFSET MN_PATCH83_POS
  1762.         CALL    WR_STRING_0601
  1763.         JMP    SHORT LOC_0AA0
  1764.  
  1765. LOC_0AA_NEG:
  1766.         CMP    OLD_W_0946,0FF80H    ;is value -1 thru -128?
  1767.         JB    LOC_0AA0        ;if no, jump
  1768.  
  1769.         MOV    BYTE PTR MAC_PATCH83,1    ; (72B5:24E0=0)
  1770.         MOV    SI,OFFSET MN_PATCH83_NEG
  1771.         CALL    WR_STRING_0601
  1772.  
  1773. LOC_0AA0:
  1774.         TEST    BYTE PTR DATA_285C,0FFH    ; (=0)
  1775.         JZ    LOC_0AAA
  1776.         CALL    WR_CRLF_05AE
  1777. LOC_0AAA:
  1778.         TEST    DATA_284D,0FFFFH    ; (72B5:284D=0)
  1779.         JZ    LOC_0AB5
  1780.         JMP    LOC_0799
  1781. LOC_0AB5:
  1782.         TEST    BYTE PTR DATA_286D,0FFH    ; (=0)
  1783.         JNZ    LOC_0AE3
  1784.         MOV    DX,DATA_2A94        ; Code Segment value
  1785.         MOV    CL,4
  1786.         SHL    DX,CL            ; Shift w/zeros fill
  1787.         ADD    DX,DATA_2A92        ; Code Offset value
  1788. ;**CHANGED**    MOV    DS:ALTR_W_0B2B+1,DX    ; (72B5:0B2C=0)
  1789.         MOV    DS:OLD_W_0B2C,DX    ; (72B5:0B2C=0)
  1790.         MOV    BYTE PTR DATA_2887,0    ; (=0)
  1791.         MOV    BYTE PTR OPW_HI_NBL_286A,0    ; (72B5:286A=0)
  1792.         MOV    BYTE PTR OPJ_HI_BYT_2869,20H    ; (72B5:2869=0) ' '
  1793. ;**CHANGED**    MOV    BYTE PTR DATA_2871,0FFH    ; (=0FFH)
  1794.         MOV    BYTE PTR SW_R_TABLE_LST,0FFH    ; (=0FFH)
  1795.         CALL    SUB_0EAB
  1796. LOC_0AE3:
  1797.         CMP    BYTE PTR DATA_2861,1    ; (=0)
  1798.         JE    LOC_0AFE
  1799. ;**CHANGED**    MOV    BYTE PTR DATA_2870,0FFH    ; (=0FFH)
  1800.         MOV    BYTE PTR SW_O_OUTPUT_LST,0FFH    ; (=0FFH)
  1801. LOC_0AEF:
  1802.         TEST    BYTE PTR DATA_2888,0FFH    ; (=0)
  1803.         JZ    LOC_0AFE
  1804.         CALL    SUB_0FA8
  1805.         CALL    SUB_10A8
  1806.         JMP    SHORT LOC_0AEF
  1807. LOC_0AFE:
  1808.         MOV    DX,OFFSET FCB3_2A0F    ; (72B5:2A0F=61H)
  1809.         MOV    AH,10H
  1810.         INT    21H            ; DOS Services  ah=function 10h
  1811.                         ;  close file, FCB @ ds:dx
  1812.         CMP    BYTE PTR DATA_2861,1    ; (=0)
  1813.         JNE    LOC_0B1B
  1814.         MOV    BYTE PTR DATA_2861,2    ; (=0)
  1815.         CMP    BYTE PTR DATA_2862,41H    ; (=0) 'A'
  1816.         JNE    LOC_RET_0B49
  1817.         JMP    LOC_0722
  1818. LOC_0B1B:
  1819.         CALL    SUB_1221
  1820.         MOV    SI,OFFSET DATA_217E    ; (72B5:217E=45H)
  1821.         CALL    WR_STRING_0601
  1822.         TEST    BYTE PTR DATA_286D,0FFH    ; (=0)
  1823.         JNZ    LOC_0B43
  1824.  
  1825. ALTR_W_0B2B:                    ; Altered code
  1826. ;**CHANGED**    MOV    DX,0
  1827.         MOV    DX,OLD_W_0B2C
  1828.         CALL    SUB_0E70
  1829.         CALL    SUB_1B70
  1830.         JC    LOC_0B3D
  1831.         JZ    LOC_0B3D
  1832.         CALL    WR_STRING_0601
  1833.         JMP    SHORT LOC_0B43
  1834. LOC_0B3D:
  1835.         CALL    WR_L_05B6
  1836.         CALL    SUB_05A6
  1837. LOC_0B43:
  1838.         CALL    WR_CRLF_05AE
  1839.         CALL    SUB_064A
  1840.  
  1841. LOC_RET_0B49:
  1842.         RETN
  1843. SUB_0714    ENDP
  1844.  
  1845.  
  1846. ;==========================================================================
  1847. ;                   SUBROUTINE
  1848. ;==========================================================================
  1849.  
  1850. SUB_0B4A    PROC    NEAR
  1851.         MOV    BX,DATA_2893        ; (=0)
  1852.         TEST    BYTE PTR [BX],80H
  1853.         JNZ    LOC_RET_0B6F
  1854.         MOV    BYTE PTR DATA_2888,0FFH    ; (=0)
  1855. ;**CHANGED**    MOV    BYTE PTR DS:ALTR_B_0FBA+1,0    ; (72B5:0FBB=0)
  1856.         MOV    BYTE PTR DS:OLD_B_0FBB,0    ; (72B5:0FBB=0)
  1857.         CALL    SUB_0B70
  1858.         MOV    SI,BP
  1859.         JNC    LOC_0B67
  1860.         JMP    LOC_0214
  1861. LOC_0B67:
  1862.         CALL    SUB_0FA8
  1863.         JZ    LOC_0B67
  1864.         CALL    SUB_064A
  1865.  
  1866. LOC_RET_0B6F:
  1867.         RETN
  1868. SUB_0B4A    ENDP
  1869.  
  1870.  
  1871. ;==========================================================================
  1872. ;                   SUBROUTINE
  1873. ;==========================================================================
  1874.  
  1875. SUB_0B70    PROC    NEAR
  1876.         MOV    AX,OFFSET DTA4_2C9E    ; (72B5:2C9E=0)
  1877.         MOV    DATA_2881,AX        ; (=0)
  1878.         MOV    SI,OFFSET MN_TITLE    ; (72B5:2431=54H)
  1879.         CALL    WR_STRING_0601
  1880.         MOV    SI,OFFSET FCB3_NAME_2A10    ; (72B5:2A10=6EH)
  1881.         MOV    CX,8
  1882.  
  1883. LOCLOOP_0B82:
  1884.         LODSB                ; String [si] to al
  1885.         CMP    AL,20H            ; ' '
  1886.         JE    LOC_0B8C
  1887.         CALL    WR_CHR_AL_05C1
  1888.         LOOP    LOCLOOP_0B82        ; Loop if cx > 0
  1889.  
  1890. LOC_0B8C:
  1891. ;**CHANGED**    MOV    DI,OFFSET DATA_298B    ; 132-byte line buffer
  1892.         MOV    DI,OFFSET LINE_BUF_132CHR ; 132-byte line buffer
  1893.         PUSH    DI
  1894.         MOV    AL,9
  1895.         STOSB                ; Store al to es:[di]
  1896.         MOV    DX,WORD PTR FCB3_DATE_2A23    ; (72B5:2A23=6365H)
  1897.         MOV    BX,DX
  1898.         MOV    CL,5
  1899.         SHR    BX,CL            ; Shift w/zeros fill
  1900.         AND    BX,0FH            ; clear high 12-bits
  1901.     ;***    nop                ;*Fixup for MASM (M)
  1902.         PATCH83    0            ;PATCH83 edited in (JEG)
  1903.         CALL    SUB_11E7
  1904.         MOV    BX,DX
  1905.         AND    BX,1FH            ; clear high 11-bits
  1906.     ;***    nop                ;*Fixup for MASM (M)
  1907.         PATCH83    0            ;PATCH83 edited in (JEG)
  1908.         CALL    SUB_11E4
  1909.         MOV    BL,DH
  1910.         SHR    BX,1            ; Shift w/zeros fill
  1911.         ADD    BX,50H
  1912.         CALL    SUB_11E4
  1913.         MOV    AX,5B09H        ; "TAB ["
  1914.         STOSW                ; Store ax to es:[di]
  1915.         MOV    AH,2AH
  1916.         INT    21H            ; DOS Services  ah=function 2Ah
  1917.                         ;  get date, cx=year, dx=mon/day
  1918.         MOV    BL,DH
  1919.         MOV    BH,0
  1920.         CALL    SUB_11E7
  1921.         MOV    BL,DL
  1922.         CALL    SUB_11E4
  1923.         MOV    BX,CX
  1924.         SUB    BX,76CH        ;***** WHAT IS THIS ? *****
  1925.         CALL    SUB_11E4
  1926.         MOV    AL,5DH            ; ']'
  1927.         STOSB                ; Store al to es:[di]
  1928.         MOV    AX,8A0DH        ; "CR LF", high bit set
  1929.         STOSW                ; Store ax to es:[di]
  1930.         POP    SI
  1931.         CALL    WR_STRING_0601
  1932.         CALL    WR_CRLF_05AE
  1933.         MOV    DX,OFFSET FCB4_2A34    ; (72B5:2A34=0DH)
  1934.         MOV    AH,16H
  1935.         INT    21H            ; DOS Services  ah=function 16h
  1936.                         ;  creat/truncat file FCB @ds:dx
  1937.         PUSH    AX
  1938.         MOV    AH,FCB4_RESRV_2A4C    ; (72B5:2A4C=73H)
  1939.         CMP    AH,0FFH
  1940.         JE    LOC_0C03
  1941.         MOV    DX,OFFSET MS_WRITING_27FD    ; (72B5:27FD=0DH)
  1942.         MOV    AH,9
  1943.         INT    21H            ; DOS Services  ah=function 09h
  1944.                         ;  display char string at ds:dx
  1945.         MOV    SI,OFFSET FCB4_2A34    ; (72B5:2A34=0DH)
  1946.         CALL    SUB_06B1
  1947.         CALL    DSPY_CRLF_06FB
  1948. LOC_0C03:
  1949. ;**CHANGED**    MOV    BYTE PTR DS:ALTR_OPB_064A+0,90H    ; (72B5:064A=0C3H)
  1950.         MOV    OLD_RET_NOP_064A,0FFH ; (=0C3H) set NOP
  1951.         MOV    BYTE PTR FCB4_CUREC_2A54,0    ; (=52H)
  1952.         MOV    WORD PTR FCB4_RECSZ_2A42,200H    ; (72B5:2A42=4320H)
  1953. ;**CHANGED**    MOV    BYTE PTR DATA_2872,0FFH    ; (=0FFH)
  1954.         MOV    BYTE PTR SW_E_EMBED_REF,0FFH    ; (=0FFH)
  1955. ;**CHANGED**    MOV    BYTE PTR DATA_2870,0FFH    ; (=0FFH)
  1956.         MOV    BYTE PTR SW_O_OUTPUT_LST,0FFH    ; (=0FFH)
  1957.         MOV    DATA_2849,0        ; (=0)
  1958.         MOV    DATA_284B,0        ; (=0)
  1959.         MOV    BP,DATA_2893        ; (=0)
  1960.         POP    AX
  1961.  
  1962. ;==== External Entry into Subroutine ======================================
  1963.  
  1964. SUB_0C2E:
  1965.         OR    AL,AL
  1966.         JZ    LOC_RET_0C36
  1967.         MOV    DX,OFFSET MS_DIRFULL_2691    ; (72B5:2691=4EH)
  1968.         STC                ; Set carry flag
  1969.  
  1970. LOC_RET_0C36:
  1971.         RETN
  1972. SUB_0B70    ENDP
  1973.  
  1974.  
  1975. ;==========================================================================
  1976. ;                   SUBROUTINE
  1977. ;==========================================================================
  1978.  
  1979. SUB_0C37    PROC    NEAR
  1980.         CALL    SUB_0E00
  1981.         JNC    LOC_0C3D
  1982.         RETN
  1983. LOC_0C3D:
  1984.         MOV    DATA_2889,DATA_2E9E_E    ; (=0) (=0)
  1985.         MOV    AX,DATA_288F        ; (=0)
  1986.         MOV    DATA_288D,AX        ; (=0)
  1987.         XOR    AX,AX
  1988.         MOV    DATA_2867,AX        ; (=0)
  1989.         MOV    DATA_2866,AL        ; (=0)
  1990. ;**CHANGED**    MOV    DS:ALTR_B_0EF8+1,AL    ; (72B5:0EF9=0)
  1991.         MOV    DS:OLD_B_0EF9,AL    ; (72B5:0EF9=0)
  1992.         MOV    DATA_2856,AL        ; (=0)
  1993.         MOV    DATA_2919,AX        ; (=0)
  1994. ;**CHANGED**    MOV    DS:ALTR_W_0802+1,AX    ; (72B5:0803=0)
  1995.         MOV    DS:OLD_W_0803,AX    ; (72B5:0803=0)
  1996.         MOV    DATA_291B,AL        ; (=0)
  1997.         MOV    DATA_2887,AL        ; (=0)
  1998.         MOV    DATA_2854,AX        ; (=0)
  1999.         CMP    BYTE PTR DATA_2861,1    ; (=0)
  2000.         JNE    LOC_0CD1
  2001.         XOR    AX,AX
  2002. ;**CHANGED**    MOV    DS:ALTR_B_10B6+1,AL    ; (72B5:10B7=0)
  2003.         MOV    DS:OLD_B_10B7,AL    ; (72B5:10B7=0)
  2004.         MOV    DATA_2853,AL        ; (=0)
  2005.         MOV    DATA_2891,AX        ; (=0)
  2006.         MOV    DATA_2A94,AX        ; Code Segment value
  2007.         MOV    DATA_2A92,100H        ; Code Offset value
  2008.         MOV    DATA_2A8C,AX        ; (=0A0AH)
  2009.         MOV    DATA_2A8E,0FFFFH    ; (=7845H)
  2010.         MOV    AX,WORD PTR FCB3_FILSZ_2A1F    ; (72B5:2A1F=2058H)
  2011.         MOV    DATA_2851,AX        ; (=0)
  2012.         MOV    DI,DATA_288F        ; (=0)
  2013.         CMP    WORD PTR FCB3_EXT1_2A18,5845H    ; 'EX' test for EXE
  2014.         JNE    LOC_0CB7
  2015.         CMP    BYTE PTR FCB3_EXT3_2A1A,45H    ; (72B5:2A1A=20H) 'E'
  2016.         JNE    LOC_0CB7
  2017.         CALL    SUB_0D5A
  2018.         MOV    DI,DATA_2915        ; (=0)
  2019.         TEST    BYTE PTR DATA_286D,0FFH    ; (=0)
  2020.         JNZ    LOC_0CB7
  2021.         MOV    DATA_285A,0        ; (=0)
  2022. LOC_0CB7:
  2023.         MOV    DATA_2893,DI        ; (=0)
  2024.         MOV    BYTE PTR [DI],0C0H
  2025.         MOV    AH,3
  2026.         CALL    SUB_0F6C
  2027.         MOV    AL,41H            ; 'A'
  2028.         STOSB                ; Store al to es:[di]
  2029.         XOR    AX,AX
  2030. ;**CHANGED**    MOV    DS:ALTR_W_1222+1,AX    ; (72B5:1223=0)
  2031.         MOV    DS:OLD_W_1223,AX    ; (72B5:1223=0)
  2032.         STOSW                ; Store ax to es:[di]
  2033.         MOV    BYTE PTR DATA_2888,0    ; (=0)
  2034. LOC_0CD1:
  2035.         MOV    AX,DATA_2851        ; (=0)
  2036.         MOV    DATA_284D,AX        ; (72B5:284D=0)
  2037.         MOV    WORD PTR FCB3_RECSZ_2A1D,200H    ; (72B5:2A1D=90AH)
  2038.         MOV    WORD PTR FCB3_BLKNO_2A1B,0    ; (72B5:2A1B=0D3AH)
  2039.         MOV    AL,DATA_2853        ; (=0)
  2040.         MOV    FCB3_CUREC_2A2F,AL    ; (=65H)
  2041.         MOV    DI,OFFSET INIT_CS_SEG_FIX    ; (72B5:2603=30H)
  2042.         MOV    DX,DATA_2A94        ; Code Segment value
  2043.         CALL    CNV_W_2_HX_151D
  2044.         MOV    DX,DATA_2A92        ; Code Offset value
  2045.         INC    DI
  2046.         CALL    CNV_W_2_HX_151D
  2047.         MOV    DI,OFFSET DATA_2823    ; (=0)
  2048.         XOR    AX,AX
  2049.         MOV    CX,4
  2050.         REP    STOSW            ; Rep when cx >0 Store ax to es:[di]
  2051.         MOV    DI,OFFSET INIT_SP_SEG_FIX    ; (72B5:2618=30H)
  2052.         MOV    DX,DATA_2A8C        ; 
  2053.         CALL    CNV_W_2_HX_151D
  2054.         INC    DI
  2055.         MOV    CL,4
  2056.         SHL    DX,CL            ; Shift w/zeros fill
  2057.         PUSH    DX
  2058.         MOV    DX,DATA_2A8E        ; 
  2059.         CALL    CNV_W_2_HX_151D
  2060.         MOV    AX,DATA_285A        ; (=0)
  2061.         MOV    DATA_2858,AX        ; (=0)
  2062.         MOV    DATA_287F,OFFSET DTA4_2C9E    ; (=0) (72B5:2C9E=0)
  2063.         POP    AX
  2064.         PUSH    AX
  2065.         ADD    DX,AX
  2066. ;**CHANGED**    TEST    BYTE PTR DS:ALTR_B_10B6+1,0FFH    ; (72B5:10B7=0)
  2067.         TEST    BYTE PTR DS:OLD_B_10B7,0FFH    ; (72B5:10B7=0)
  2068.         PUSHF
  2069.         JZ    LOC_0D3D
  2070.         CALL    SUB_0EAB
  2071.  
  2072. ALTR_W_0D37:                    ; Altered code
  2073. ;**CHANGED**    MOV    BX,0
  2074.         MOV    BX,OLD_W_0D38
  2075.         OR    BYTE PTR [BX],1
  2076. LOC_0D3D:
  2077.         POPF
  2078.         POP    DX
  2079.         JZ    LOC_0D53
  2080.         CALL    SUB_0EAB
  2081. ;**CHANGED**    MOV    BX,DS:ALTR_W_0D37+1    ; (72B5:0D38=0)
  2082.         MOV    BX,DS:OLD_W_0D38    ; (72B5:0D38=0)
  2083.         OR    BYTE PTR [BX],1
  2084.         MOV    DATA_2825,DX        ; (=0)
  2085. ;**CHANGED**    MOV    DS:ALTR_W_10BC+2,DX    ; (72B5:10BE=8888H)
  2086.         MOV    DS:OLD_W_10BE,DX    ; (72B5:10BE=8888H)
  2087. LOC_0D53:
  2088.         CLC                ; Clear carry flag
  2089. ;**CHANGED**    MOV    BYTE PTR DS:ALTR_B_0FBA+1,0    ; (72B5:0FBB=0)
  2090.         MOV    BYTE PTR DS:OLD_B_0FBB,0    ; (72B5:0FBB=0)
  2091.  
  2092. LOC_RET_0D59:
  2093.         RETN
  2094. SUB_0C37    ENDP
  2095.  
  2096.  
  2097. ;==========================================================================
  2098. ;                   SUBROUTINE
  2099. ;==========================================================================
  2100.  
  2101. SUB_0D5A    PROC    NEAR
  2102. ;**CHANGED**    DEC    BYTE PTR DS:ALTR_B_10B6+1    ; (72B5:10B7=0)
  2103.         DEC    BYTE PTR DS:OLD_B_10B7    ; (72B5:10B7=0)
  2104.         MOV    CX,1AH
  2105.         MOV    WORD PTR FCB3_RECSZ_2A1D,1    ; (72B5:2A1D=90AH)
  2106.         MOV    DX,OFFSET DTA1_2A7E    ; (72B5:2A7E=72H)
  2107.         MOV    AH,1AH
  2108.         INT    21H            ; DOS Services  ah=function 1Ah
  2109.                         ;  set DTA to ds:dx
  2110.         MOV    DX,OFFSET FCB3_2A0F    ; (72B5:2A0F=61H)
  2111.         MOV    CX,1AH
  2112.         MOV    AH,27H
  2113.         INT    21H            ; DOS Services  ah=function 27h
  2114.                         ;  random block read, FCB @ds:dx
  2115.         OR    AL,AL
  2116.         JZ    LOC_0D7F
  2117.         JMP    SHORT LOC_0DFA
  2118.     ;***    DB    90H
  2119. LOC_0D7F:
  2120.         MOV    AX,DATA_2A86        ; 
  2121.         ADD    AX,1FH
  2122.         MOV    CL,5
  2123.         SHR    AX,CL            ; Shift w/zeros fill
  2124.         MOV    DATA_2853,AL        ; (=0)
  2125.         MOV    CL,9
  2126.         SHL    AX,CL            ; Shift w/zeros fill
  2127.         XCHG    AX,BX
  2128.         MOV    AX,DATA_2A82        ; 
  2129.         DEC    AX
  2130.         SHL    AX,CL            ; Shift w/zeros fill
  2131.         SUB    AX,BX
  2132.         MOV    BX,DATA_2A80        ; 
  2133.         CMP    BX,4
  2134.         JNE    LOC_0DA5
  2135.         MOV    BX,200H
  2136. LOC_0DA5:
  2137.         ADD    AX,BX
  2138.         MOV    DATA_2851,AX        ; (=0)
  2139.         MOV    AX,DATA_2A96        ; FCB3 Random Rec Num value
  2140.         MOV    FCB3_RNDRC_2A30,AX    ; (=7073H)
  2141.         TEST    DATA_2A84,0FFFFH    ; 
  2142.         JZ    LOC_RET_0D59
  2143.         MOV    DX,OFFSET DTA2_2A98
  2144.         MOV    AH,1AH
  2145.         INT    21H            ; DOS Services  ah=function 1Ah
  2146.                         ;  set DTA to ds:dx
  2147. LOC_0DBF:
  2148.         MOV    DX,OFFSET FCB3_2A0F    ; (72B5:2A0F=61H)
  2149.         MOV    CX,4
  2150.         MOV    AH,27H
  2151.         INT    21H            ; DOS Services  ah=function 27h
  2152.                         ;  random block read, FCB @ds:dx
  2153.         OR    AL,AL
  2154.         JNZ    LOC_0DFA
  2155.         MOV    BX,WORD PTR DTA2_W2_2A9A ; Segment value
  2156.         MOV    CL,4
  2157.         SHL    BX,CL            ; Shift w/zeros fill
  2158.         ADD    BX,WORD PTR DTA2_2A98    ; Offset value
  2159.         MOV    DI,DATA_288F        ; (=0)
  2160. LOC_0DDD:
  2161.         CMP    DI,DATA_2915        ; (=0)
  2162.         JAE    LOC_0DEC
  2163.         CMP    BX,[DI]
  2164.         JBE    LOC_0DEC
  2165.         ADD    DI,2
  2166.         JMP    SHORT LOC_0DDD
  2167. LOC_0DEC:
  2168.         MOV    AH,2
  2169.         CALL    SUB_0F6C
  2170.         XCHG    AX,BX
  2171.         STOSW                ; Store ax to es:[di]
  2172.         DEC    DATA_2A84        ; (=7420H)
  2173.         JNZ    LOC_0DBF
  2174.         RETN
  2175. LOC_0DFA:
  2176.         MOV    DX,OFFSET MS_ERR_RD_26C6    ; (72B5:26C6=45H)
  2177.         JMP    LOC_0214
  2178. SUB_0D5A    ENDP
  2179.  
  2180.  
  2181. ;==========================================================================
  2182. ;                   SUBROUTINE
  2183. ;==========================================================================
  2184.  
  2185. SUB_0E00    PROC    NEAR
  2186.         MOV    DX,OFFSET FCB3_2A0F    ; (72B5:2A0F=61H)
  2187.         MOV    DI,OFFSET FCB3_BLKNO_2A1B    ; (72B5:2A1B=3AH)
  2188.         MOV    CX,19H            ; 25 decimal, initiallize FCB3
  2189.         MOV    AL,0
  2190.         REP    STOSB            ; Rep when cx >0 Store al to es:[di]
  2191.         MOV    AH,0FH
  2192.         INT    21H            ; DOS Services  ah=function 0Fh
  2193.                         ;  open file, FCB @ ds:dx
  2194.         MOV    DATA_287F,OFFSET DTA4_2C9E    ; (=0) (72B5:2C9E=0)
  2195.         MOV    WORD PTR FCB3_RECSZ_2A1D,200H    ; (72B5:2A1D=90AH)
  2196.         OR    AL,AL
  2197.         JZ    LOC_RET_0E36
  2198.         MOV    DX,OFFSET MS_FILE_267D    ; (72B5:267D=46H)
  2199.         MOV    AH,9
  2200.         INT    21H            ; DOS Services  ah=function 09h
  2201.                         ;  display char string at ds:dx
  2202.         MOV    SI,OFFSET FCB3_2A0F    ; (72B5:2A0F=61H)
  2203.         CALL    SUB_06B1
  2204.         MOV    DX,OFFSET MS_NOTFND_2683    ; (72B5:2683=20H)
  2205.         MOV    AH,9
  2206.         INT    21H            ; DOS Services  ah=function 09h
  2207.                         ;  display char string at ds:dx
  2208.         STC                ; Set carry flag
  2209.  
  2210. LOC_RET_0E36:
  2211.         RETN
  2212. SUB_0E00    ENDP
  2213.  
  2214.  
  2215. ;==========================================================================
  2216. ;                   SUBROUTINE
  2217. ;==========================================================================
  2218.  
  2219. SUB_0E37    PROC    NEAR
  2220.         CALL    SCAN_SPTAB_0E3F
  2221.         CMP    AL,2CH            ; ','
  2222.         JNE    LOC_0E49
  2223.         INC    SI
  2224.  
  2225. ;==== External Entry into Subroutine ======================================
  2226. ;
  2227. ;         Scan off spaces and Tabs
  2228.  
  2229. SCAN_SPTAB_0E3F:
  2230. LOC_0E3F:
  2231.         LODSB                ; String [si] to al
  2232.         CMP    AL,20H            ; ' '
  2233.         JE    LOC_0E3F
  2234.         CMP    AL,9            ; TAB
  2235.         JE    LOC_0E3F
  2236.         DEC    SI
  2237. LOC_0E49:
  2238.         CMP    AL,0DH            ; CR
  2239.         RETN
  2240. SUB_0E37    ENDP
  2241.  
  2242.  
  2243. ;==========================================================================
  2244. ;                   SUBROUTINE
  2245. ;==========================================================================
  2246.  
  2247. SUB_0E4C    PROC    NEAR
  2248.         MOV    SI,DATA_2893        ; (=0)
  2249. LOC_0E50:
  2250.         MOV    DL,0
  2251.         TEST    BYTE PTR [SI],80H
  2252.         JZ    LOC_0E58
  2253.         RETN
  2254. LOC_0E58:
  2255.         MOV    BX,SI
  2256. LOC_0E5A:
  2257.         ADD    SI,3
  2258.         MOV    AL,[SI]
  2259.         TEST    AL,0C0H
  2260.         JNZ    LOC_0E67
  2261.         OR    DL,AL
  2262.         JMP    SHORT LOC_0E5A
  2263. LOC_0E67:
  2264.         OR    DL,DL
  2265.         JNZ    LOC_0E50
  2266.         OR    BYTE PTR [BX],20H    ; ' '
  2267.         JMP    SHORT LOC_0E50
  2268. SUB_0E4C    ENDP
  2269.  
  2270.  
  2271. ;==========================================================================
  2272. ;                   SUBROUTINE
  2273. ;==========================================================================
  2274.  
  2275. SUB_0E70    PROC    NEAR
  2276.         CMP    DATA_2891,40H        ; (=0)
  2277.         MOV    DI,OFFSET DATA_2895    ; 128-byte buffer
  2278.         JC    LOC_0E88
  2279.         MOV    CX,20H
  2280.         JMP    SHORT LOC_0E82
  2281.  
  2282. LOCLOOP_0E7F:
  2283.         ADD    DI,4
  2284. LOC_0E82:
  2285.         CMP    DX,[DI]
  2286.         JE    LOC_0E8F
  2287.         JNC    LOC_0E8D
  2288. LOC_0E88:
  2289.         SUB    DI,4
  2290.         JMP    SHORT LOC_0E8F
  2291. LOC_0E8D:
  2292.         LOOPNZ    LOCLOOP_0E7F        ; Loop if zf=0, cx>0
  2293.  
  2294. LOC_0E8F:
  2295.         MOV    DI,[DI+2]
  2296.         JMP    SHORT LOC_0E97
  2297. LOC_0E94:
  2298.         ADD    DI,3
  2299. LOC_0E97:
  2300.         MOV    AL,[DI]
  2301.         TEST    AL,0C0H
  2302.         JZ    LOC_0E94
  2303.         TEST    AL,80H
  2304.         JNZ    LOC_0EA6
  2305.         CMP    DX,[DI+1]
  2306.         JA    LOC_0E94
  2307. LOC_0EA6:
  2308. ;**CHANGED**    MOV    DS:ALTR_W_0D37+1,DI    ; (72B5:0D38=0)
  2309.         MOV    DS:OLD_W_0D38,DI    ; (72B5:0D38=0)
  2310.         RETN
  2311. SUB_0E70    ENDP
  2312.  
  2313.  
  2314. ;==========================================================================
  2315. ;                   SUBROUTINE
  2316. ;==========================================================================
  2317.  
  2318. SUB_0EAB    PROC    NEAR
  2319. LOC_0EAB:
  2320.         CMP    BYTE PTR DATA_2861,1    ; (=0)
  2321.         JNE    LOC_0EA6
  2322. ;**CHANGED**    TEST    BYTE PTR DATA_2871,0FFH    ; (=0FFH)
  2323.         TEST    BYTE PTR SW_R_TABLE_LST,0FFH    ; (=0FFH)
  2324.         JZ    LOC_0EA6
  2325.         PUSH    DI
  2326.         MOV    BX,DATA_2858        ; (=0)
  2327.         TEST    BYTE PTR DATA_2887,7FH    ; (=0)
  2328.         JNZ    LOC_0EC9
  2329.         SUB    BX,DATA_2854        ; (=0)
  2330. LOC_0EC9:
  2331.         CALL    SUB_0E70
  2332.         JZ    LOC_0EE4
  2333.         MOV    AH,6
  2334.         INC    DATA_2891        ; (=0)
  2335.         CALL    SUB_0F76
  2336.         JC    ALTR_B_0EF8
  2337.         MOV    BYTE PTR [DI],40H    ; '@'
  2338.         MOV    [DI+1],DX
  2339.         ADD    DI,3
  2340.         JMP    SHORT LOC_0F0C
  2341. LOC_0EE4:
  2342.         ADD    DI,3
  2343.         TEST    BYTE PTR [DI],0C0H
  2344.         JNZ    LOC_0EF1
  2345.         CMP    BX,[DI+1]
  2346.         JAE    LOC_0EE4
  2347. LOC_0EF1:
  2348.         MOV    AH,3
  2349.         CALL    SUB_0F76
  2350.         JNC    LOC_0F0C
  2351.  
  2352. ALTR_B_0EF8:                    ; Altered code
  2353. ;**CHANGED**    MOV    AL,0
  2354.         MOV    AL,OLD_B_0EF9
  2355.         OR    AL,AL
  2356.         JNZ    LOC_0F6A
  2357.         PUSH    DX
  2358.         MOV    DX,OFFSET MS_REF_TBL_INCOMP    ; (72B5:27B6=7)
  2359.         MOV    AH,9
  2360. ;**CHANGED**    MOV    DS:ALTR_B_0EF8+1,AH    ; (72B5:0EF9=0)
  2361.         MOV    DS:OLD_B_0EF9,AH    ; (72B5:0EF9=0) value=9
  2362.         INT    21H            ; DOS Services  ah=function 09h
  2363.                         ;  display char string at ds:dx
  2364.         JMP    SHORT LOC_0F69
  2365. LOC_0F0C:
  2366.         MOV    AL,OPW_HI_NBL_286A    ; (72B5:286A=0)
  2367.         MOV    CL,4
  2368.         SHR    AL,CL            ; Shift w/zeros fill
  2369.         MOV    CL,30H            ; '0'
  2370.         AND    CL,OPJ_HI_BYT_2869    ; (72B5:2869=0)
  2371.         OR    AL,CL
  2372.         TEST    BYTE PTR DATA_2887,7FH    ; (=0)
  2373.         JZ    LOC_0F24
  2374.         MOV    AL,0
  2375. LOC_0F24:
  2376.         MOV    [DI],AL
  2377.         MOV    [DI+1],BX
  2378.         MOV    BYTE PTR DATA_2888,0FFH    ; (=0)
  2379.         TEST    DATA_2891,3FH        ; (=0)
  2380.         JNZ    LOC_0F6A
  2381.         MOV    SI,DATA_2893        ; (=0)
  2382.         MOV    DI,OFFSET DATA_2895    ; 128-byte buffer
  2383.         PUSH    DX
  2384.         PUSH    BX
  2385.         MOV    BL,20H            ; ' '
  2386.         MOV    CL,5
  2387.         MOV    DX,DATA_2891        ; (=0)
  2388.  
  2389. ALTR_B_0F47:                    ; Altered code
  2390. ;**CHANGED**    MOV    AL,0
  2391.         MOV    AL,OLD_B_0F48
  2392.         CMP    AL,DL
  2393.         JE    LOC_0F68
  2394. ;**CHANGED**    MOV    DS:ALTR_B_0F47+1,DL    ; (72B5:0F48=0)
  2395.         MOV    DS:OLD_B_0F48,DL    ; (72B5:0F48=0)
  2396.         SHR    DX,CL            ; Shift w/zeros fill
  2397. LOC_0F53:
  2398.         MOV    CX,DX
  2399.         MOV    AX,SI
  2400.         INC    SI
  2401.         MOVSW                ; Mov [si] to es:[di]
  2402.         STOSW                ; Store ax to es:[di]
  2403.  
  2404. LOCLOOP_0F5A:
  2405.         ADD    SI,3
  2406.         TEST    BYTE PTR [SI],0C0H
  2407.         JZ    LOCLOOP_0F5A
  2408.         LOOP    LOCLOOP_0F5A        ; Loop if cx > 0
  2409.  
  2410.         DEC    BL
  2411.         JNZ    LOC_0F53
  2412. LOC_0F68:
  2413.         POP    BX
  2414. LOC_0F69:
  2415.         POP    DX
  2416. LOC_0F6A:
  2417.         POP    DI
  2418.         RETN
  2419. SUB_0EAB    ENDP
  2420.  
  2421.  
  2422. ;==========================================================================
  2423. ;                   SUBROUTINE
  2424. ;==========================================================================
  2425.  
  2426. SUB_0F6C    PROC    NEAR
  2427.         CALL    SUB_0F76
  2428.         JNC    LOC_RET_0F75
  2429.         POP    AX            ; equallize stack
  2430.         JMP    LOC_0126        ; memory full error message
  2431.  
  2432. LOC_RET_0F75:
  2433.         RETN
  2434. SUB_0F6C    ENDP
  2435.  
  2436.  
  2437. ;==========================================================================
  2438. ;                   SUBROUTINE
  2439. ;==========================================================================
  2440.  
  2441. SUB_0F76    PROC    NEAR
  2442.         PUSH    DI
  2443.         PUSH    SI
  2444.         PUSH    CX
  2445.         PUSH    AX
  2446.         MOV    AL,AH
  2447.         MOV    AH,0
  2448.         MOV    CX,DATA_2915        ; (=0)
  2449.         MOV    SI,CX
  2450.         SUB    CX,DI
  2451.         INC    CX
  2452.         MOV    DI,SI
  2453.         ADD    DI,AX
  2454.         CMP    DI,DATA_2E9E_E        ; (=0)
  2455.         JB    LOC_0F97
  2456.         CMP    DATA_2883,DI        ; (=0)
  2457.         JAE    LOC_0F9A
  2458. LOC_0F97:
  2459.         STC                ; Set carry flag
  2460.         JMP    SHORT LOC_0FA3
  2461. LOC_0F9A:
  2462.         MOV    DATA_2915,DI        ; (=0)
  2463.         STD                ; Set direction flag
  2464.         REP    MOVSB            ; Rep when cx >0 Mov [si] to es:[di]
  2465.         CLD                ; Clear direction
  2466.         CLC                ; Clear carry flag
  2467. LOC_0FA3:
  2468.         POP    AX
  2469.         POP    CX
  2470.         POP    SI
  2471.         POP    DI
  2472.  
  2473. LOC_RET_0FA7:
  2474.         RETN
  2475. SUB_0F76    ENDP
  2476.  
  2477.  
  2478. ;==========================================================================
  2479. ;                   SUBROUTINE
  2480. ;==========================================================================
  2481.  
  2482. SUB_0FA8    PROC    NEAR
  2483.         TEST    BYTE PTR DATA_2888,0FFH    ; (=0)
  2484.         JZ    LOC_RET_0FA7
  2485.         MOV    DI,BP
  2486.         MOV    AL,[DI]
  2487.         AND    AL,1            ; clear all but bit-0
  2488. ;**CHANGED**    MOV    DS:ALTR_B_10AA+1,AL    ; (72B5:10AB=0)
  2489.         MOV    DS:OLD_B_10AB,AL    ; (72B5:10AB=0)
  2490.         JZ    LOC_0FC3
  2491.  
  2492. ALTR_B_0FBA:                    ; Altered code
  2493. ;**CHANGED**    MOV    AL,0
  2494.         MOV    AL,OLD_B_0FBB
  2495.         OR    AL,AL
  2496.         JZ    LOC_0FC3
  2497.         CALL    SUB_1221
  2498. LOC_0FC3:
  2499.         PUSH    WORD PTR [DI+1]
  2500.         MOV    SI,BP
  2501.         MOV    BYTE PTR DATA_2863,0    ; (=0)
  2502. ;**CHANGED**    MOV    AL,DATA_2870        ; (=0FFH)
  2503.         MOV    AL,SW_O_OUTPUT_LST    ; (=0FFH)
  2504.         PUSH    AX
  2505.         OR    AL,AL
  2506.         JZ    LOC_0FD8
  2507. ;**CHANGED**    MOV    AL,DATA_2872        ; (=0FFH)
  2508.         MOV    AL,SW_E_EMBED_REF    ; (=0FFH)
  2509. LOC_0FD8:
  2510. ;**CHANGED**    MOV    DATA_2870,AL        ; (=0FFH)
  2511.         MOV    SW_O_OUTPUT_LST,AL        ; (=0FFH)
  2512.         CALL    SUB_1067
  2513.         XOR    CX,CX
  2514. LOC_0FE0:
  2515.         INC    DATA_2863        ; (=0)
  2516.         MOV    AL,DATA_2863        ; (=0)
  2517.         MOV    BX,8
  2518.         CMP    BYTE PTR DATA_2862,41H    ; (=0) 'A'
  2519.         JNE    LOC_0FF4
  2520.         INC    AL
  2521.         INC    BX
  2522. LOC_0FF4:
  2523.         OR    CX,CX
  2524.         JZ    LOC_100C
  2525.         CMP    AL,9
  2526.         JBE    LOC_1009
  2527.         CALL    WR_CRLF_05AE
  2528.         CALL    SUB_1067
  2529.         MOV    BYTE PTR DATA_2863,2    ; (=0)
  2530.         MOV    CX,BX
  2531. LOC_1009:
  2532.         CALL    SUB_060E
  2533. LOC_100C:
  2534.         CMP    BYTE PTR DATA_2862,41H    ; (=0) 'A'
  2535.         JNE    LOC_1016
  2536.         CALL    WR_L_05B6
  2537. LOC_1016:
  2538.         LODSB                ; String [si] to al
  2539.         LODSW                ; String [si] to ax
  2540.         CALL    SUB_058C
  2541.         MOV    CX,4
  2542.         MOV    AL,[SI-3]
  2543.         TEST    AL,40H            ; '@'
  2544.         JZ    LOC_102D
  2545.         TEST    AL,1
  2546.         JZ    LOC_104D
  2547.         MOV    AL,53H            ; 'S'
  2548.         JMP    SHORT LOC_1049
  2549. LOC_102D:
  2550.         PUSH    AX
  2551.         CALL    SUB_05BF
  2552.         POP    AX
  2553.         MOV    CL,4
  2554.         SHR    AL,CL            ; Shift w/zeros fill
  2555.         AND    AL,3            ; clear all but 2 LSB's
  2556.         MOV    BX,OFFSET DATA_24DC    ; (72B5:24DC=44H)
  2557.         XLAT                ; al=[al+[bx]] table
  2558.         CALL    WR_CHR_AL_05C1
  2559.         DEC    CX
  2560.         MOV    AL,[SI-3]
  2561.         AND    AL,0FH            ; clear high 4-bits
  2562.         MOV    BX,OFFSET DATA_24D3    ; (72B5:24D3=49H)
  2563.         XLAT                ; al=[al+[bx]] table
  2564. LOC_1049:
  2565.         CALL    WR_CHR_AL_05C1
  2566.         DEC    CX
  2567. LOC_104D:
  2568.         CMP    BYTE PTR [SI],3FH    ; '?'
  2569.         JBE    LOC_0FE0
  2570.         CALL    WR_CRLF_05AE
  2571.         POP    AX
  2572. ;**CHANGED**    MOV    DATA_2870,AL        ; (=0FFH)
  2573.         MOV    SW_O_OUTPUT_LST,AL    ; (=0FFH)
  2574.         MOV    BP,SI
  2575.         LODSB                ; String [si] to al
  2576.         TEST    AL,80H
  2577.         JZ    LOC_1065
  2578.         MOV    BYTE PTR DATA_2888,0    ; (=0)
  2579. LOC_1065:
  2580.         POP    DX
  2581.         RETN
  2582. SUB_0FA8    ENDP
  2583.  
  2584.  
  2585. ;==========================================================================
  2586. ;                   SUBROUTINE
  2587. ;==========================================================================
  2588.  
  2589. SUB_1067    PROC    NEAR
  2590.         CMP    BYTE PTR DATA_2862,41H    ; (=0) 'A'
  2591.         JNE    LOC_107B
  2592.         PUSH    CX
  2593.         MOV    CX,6
  2594.  
  2595. LOCLOOP_1072:
  2596.         CALL    SUB_05BC
  2597.         LOOP    LOCLOOP_1072        ; Loop if cx > 0
  2598.  
  2599.         POP    CX
  2600.         JMP    LOC_05B9
  2601. LOC_107B:
  2602.         MOV    BYTE PTR DATA_2848,0    ; (=0)
  2603.         RETN
  2604. SUB_1067    ENDP
  2605.  
  2606.  
  2607. ;==========================================================================
  2608. ;                   SUBROUTINE
  2609. ;==========================================================================
  2610.  
  2611. SUB_1081    PROC    NEAR
  2612.  
  2613. ALTR_J_B_1081:                    ; Altered JMP offset, to 10A7 or 'NOP'
  2614.  
  2615. ;**CHANGED**    JMP    SHORT LOC_RET_10A7
  2616.         TEST    BYTE PTR OLD_JUMP_1082,0FFH
  2617.         JZ    LOC_RET_10A7
  2618.  
  2619. ;==== External Entry into Subroutine ======================================
  2620.  
  2621. SUB_1083:
  2622.  
  2623.                         ; 24H s/b LOC_RET_10A7-SUB_1081-2
  2624. ;**CHANGED**    MOV    BYTE PTR DS:ALTR_J_B_1081+1,24H    ; (72B5:1082=24H) '$'
  2625. ;**CHANGED**    MOV    BYTE PTR DS:ALTR_J_B_1081+1,LOC_RET_10A7-SUB_1081-2
  2626.         MOV    BYTE PTR DS:OLD_JUMP_1082,0    ;take jump next time
  2627.         PUSH    DI
  2628.         PUSH    DX
  2629.         MOV    SI,OFFSET DATA_2823    ; (=0)
  2630.         MOV    DI,OFFSET FIX_DS_SEG    ; (72B5:2470=30H)
  2631.         MOV    CX,4
  2632.  
  2633. LOCLOOP_1093:
  2634.         PUSH    CX
  2635.         LODSW                ; String [si] to ax
  2636.         XCHG    AX,DX
  2637.         CALL    CNV_W_2_HX_151D
  2638.         POP    CX
  2639.         ADD    DI,6
  2640.         LOOP    LOCLOOP_1093        ; Loop if cx > 0
  2641.  
  2642.         MOV    SI,OFFSET MN_ASSUME    ; (72B5:2464=9)
  2643.         CALL    WR_STRING_0601
  2644.         POP    DX
  2645.         POP    DI
  2646.  
  2647. LOC_RET_10A7:
  2648.         RETN
  2649. SUB_1081    ENDP
  2650.  
  2651.  
  2652. ;==========================================================================
  2653. ;                   SUBROUTINE
  2654. ;==========================================================================
  2655.  
  2656. SUB_10A8    PROC    NEAR
  2657.         PUSH    DX
  2658.         PUSHF
  2659.  
  2660. ALTR_B_10AA:                    ; Altered code
  2661. ;**CHANGED**    MOV    AL,0
  2662.         MOV    AL,OLD_B_10AB
  2663.         TEST    AL,1
  2664.         JZ    LOC_110E
  2665.         MOV    WORD PTR FIX_MN_STK,8A0DH    ; "CR LF", high bit set
  2666.  
  2667. ALTR_B_10B6:                    ; Altered code
  2668. ;**CHANGED**    MOV    AL,0
  2669.         MOV    AL,OLD_B_10B7
  2670.         OR    AL,AL
  2671.         JZ    LOC_10C8
  2672. ALTR_W_10BC:
  2673. ;**CHANGED**    CMP    DX,8888H
  2674.         CMP    DX,OLD_W_10BE
  2675.         JNE    LOC_10C8
  2676.         MOV    WORD PTR FIX_MN_STK,2020H    ; "Space Space"
  2677. LOC_10C8:
  2678.         MOV    AL,53H            ; 'S'
  2679.         CALL    WR_CHR_AL_05C1
  2680. ;CHANGED**    MOV    DS:ALTR_W_1222+1,DX    ; (72B5:1223=0)
  2681.         MOV    DS:OLD_W_1223,DX    ; (72B5:1223=0)
  2682.         CALL    SUB_05A6
  2683.         MOV    SI,OFFSET MN_SEG_STK    ; (72B5:2453=9)
  2684.         CALL    WR_STRING_0601
  2685.         MOV    WORD PTR FIX_MN_STK,8A0DH    ; "CR LF", bit-7 set
  2686. ;**CHANGED**    MOV    BYTE PTR DS:ALTR_B_0FBA+1,0FFH    ; (72B5:0FBB=0)
  2687.         MOV    BYTE PTR DS:OLD_B_0FBB,0FFH    ; (72B5:0FBB=0)
  2688.         TEST    BYTE PTR DATA_2887,7FH    ; (=0)
  2689.         JNZ    LOC_10EF
  2690.         CALL    SUB_1083
  2691. LOC_10EF:
  2692.         OR    DX,DX
  2693.         JNZ    LOC_110E
  2694.         MOV    AX,DATA_285A        ; (=0)
  2695.         OR    AX,AX
  2696.         JZ    LOC_110E
  2697.         PUSH    DX
  2698.         XCHG    AX,DX
  2699.         MOV    SI,OFFSET MN_ORG_$    ; (72B5:2494=9)
  2700.         CALL    WR_STRING_0601
  2701.         CALL    SUB_05A6
  2702.         MOV    AL,48H            ; 'H'
  2703.         CALL    WR_CHR_AL_05C1
  2704.         CALL    WR_CRLF_05AE
  2705.         POP    DX
  2706. LOC_110E:
  2707.         MOV    AX,DATA_2858        ; (=0)
  2708.         TEST    DATA_284D,0FFFFH    ; (72B5:284D=0)
  2709.         JZ    LOC_111D
  2710.         CMP    AX,DX
  2711.         JE    LOC_1122
  2712. LOC_111D:
  2713.         CALL    SUB_119B
  2714.         JMP    SHORT LOC_1198
  2715. LOC_1122:
  2716.         PUSH    SI
  2717. ALTR_W_1123:
  2718. ;**CHANGED**    MOV    SI,0
  2719.         MOV    SI,OLD_W_1124
  2720.         CMP    DX,[SI-4]
  2721.         JNE    LOC_1185
  2722.         TEST    BYTE PTR [SI-1],0FFH
  2723.         JZ    LOC_1185
  2724.         PUSH    DX
  2725.         MOV    DL,[SI-1]
  2726.         TEST    DL,80H
  2727.         JZ    LOC_1150
  2728.         PUSH    SI
  2729.         XOR    DX,DX
  2730. LOC_113D:
  2731.         LODSB                ; String [si] to al
  2732.         INC    DX
  2733.         TEST    AL,80H
  2734.         JZ    LOC_113D
  2735.         CALL    WR_SEMI_05B9
  2736.         CALL    SUB_05BC
  2737.         CALL    WR_STRING_0601
  2738.         CALL    WR_CRLF_05AE
  2739.         POP    SI
  2740. LOC_1150:
  2741.         CMP    BYTE PTR [SI],0AEH
  2742.         JE    LOC_1184
  2743.         POP    AX
  2744.         CALL    WR_STRING_0601
  2745.         TEST    BYTE PTR DATA_2887,0FH    ; (=0)
  2746.         JNZ    LOC_1167
  2747.         INC    DL
  2748.         MOV    AL,3AH            ; ':'
  2749.         CALL    WR_CHR_AL_05C1
  2750. LOC_1167:
  2751.         CMP    DL,7
  2752.         JBE    LOC_1181
  2753.         TEST    BYTE PTR DATA_2887,0FH    ; (=0)
  2754.         JZ    LOC_117E
  2755.         MOV    SI,OFFSET DATA_218C_EQU    ; (72B5:218C=9)
  2756.         CALL    WR_STRING_0601
  2757.         MOV    AL,24H            ; '$'
  2758.         CALL    WR_CHR_AL_05C1
  2759. LOC_117E:
  2760.         CALL    WR_CRLF_05AE
  2761. LOC_1181:
  2762.         POP    SI
  2763.         JMP    SHORT LOC_1198
  2764. LOC_1184:
  2765.         POP    DX
  2766. LOC_1185:
  2767.         POP    SI
  2768.         CALL    WR_L_05B6
  2769.         CALL    SUB_05A6
  2770.         TEST    BYTE PTR DATA_2887,0FH    ; (=0)
  2771.         JNZ    LOC_1198
  2772.         MOV    AL,3AH            ; ':'
  2773.         CALL    WR_CHR_AL_05C1
  2774. LOC_1198:
  2775.         POPF
  2776.         POP    DX
  2777.         RETN
  2778. SUB_10A8    ENDP
  2779.  
  2780.  
  2781. ;==========================================================================
  2782. ;                   SUBROUTINE
  2783. ;==========================================================================
  2784.  
  2785. SUB_119B    PROC    NEAR
  2786.         PUSH    DX
  2787. ;**CHANGED**    MOV    DI,OFFSET DATA_298B    ; 132-byte line buffer
  2788.         MOV    DI,OFFSET LINE_BUF_132CHR ; 132-byte line buffer
  2789.         PUSH    DI
  2790.         PUSH    AX
  2791. ;**CHANGED**    MOV    SI,DS:ALTR_W_1123+1    ; (72B5:1124=0)
  2792.         MOV    SI,DS:OLD_W_1124    ; (72B5:1124=0)
  2793.         CMP    DX,[SI-4]
  2794.         JNE    LOC_11B5
  2795.         TEST    BYTE PTR [SI-1],0FFH
  2796.         JZ    LOC_11B5
  2797.         CALL    WRT_STRING_18A4
  2798.         JMP    SHORT LOC_11BB
  2799. LOC_11B5:
  2800.         MOV    AL,4CH            ; 'L'
  2801.         STOSB                ; Store al to es:[di]
  2802.         CALL    CNV_W_2_HX_151D
  2803. LOC_11BB:
  2804.         MOV    SI,OFFSET DATA_218C_EQU    ; (72B5:218C=9)
  2805.         CALL    WRT_STRING_18A4
  2806.         POP    AX
  2807.         SUB    AX,DX
  2808.         XCHG    AX,DX
  2809.         MOV    AL,24H            ; '$'
  2810.         MOV    AH,2DH            ; '-'
  2811.         OR    DH,DH
  2812.         JNS    LOC_11D1        ; Jump if not sign
  2813.         MOV    AH,2BH            ; '+'
  2814.         NEG    DX
  2815. LOC_11D1:
  2816.         STOSW                ; Store ax to es:[di]
  2817.         CALL    SUB_1345
  2818.         CALL    SUB_136C
  2819.         MOV    BYTE PTR [DI],0
  2820.         POP    SI
  2821.         CALL    WR_STRING_0601
  2822.         CALL    WR_CRLF_05AE
  2823.         POP    DX
  2824.         RETN
  2825. SUB_119B    ENDP
  2826.  
  2827.  
  2828. ;==========================================================================
  2829. ;                   SUBROUTINE
  2830. ;==========================================================================
  2831.  
  2832. SUB_11E4    PROC    NEAR
  2833.         MOV    AL,2DH            ; '-'
  2834.         STOSB                ; Store al to es:[di]
  2835.  
  2836. ;==== External Entry into Subroutine ======================================
  2837.  
  2838. SUB_11E7:
  2839.         PUSH    CX
  2840.         PUSH    SI
  2841.         MOV    SI,OFFSET LOC_1215
  2842.         MOV    CX,5
  2843. LOC_11EF:
  2844.         MOV    AL,0
  2845.         ADD    SI,2
  2846. LOC_11F4:
  2847.         SUB    BX,[SI]
  2848.         JC    LOC_11FC
  2849.         INC    AL
  2850.         JMP    SHORT LOC_11F4
  2851. LOC_11FC:
  2852.         ADD    BX,[SI]
  2853.         OR    AL,30H            ; '0'
  2854.         OR    CH,CH
  2855.         JNZ    LOC_1208
  2856.         TEST    AL,0FH
  2857.         JZ    LOC_120B
  2858. LOC_1208:
  2859.         STOSB                ; Store al to es:[di]
  2860.         INC    CH
  2861. LOC_120B:
  2862.         DEC    CL
  2863.         JNZ    LOC_11EF
  2864.         OR    CH,CH
  2865.         JNZ    LOC_1214
  2866.         STOSB                ; Store al to es:[di]
  2867. LOC_1214:
  2868.         POP    SI
  2869. LOC_1215:
  2870.         POP    CX
  2871.         RETN
  2872. SUB_11E4    ENDP
  2873.  
  2874. DATA_1217    DW    2710H, 3E8H, 64H
  2875.         DW    0AH, 1
  2876.  
  2877. ;==========================================================================
  2878. ;                   SUBROUTINE
  2879. ;==========================================================================
  2880.  
  2881. SUB_1221    PROC    NEAR
  2882.         PUSH    DX
  2883. ALTR_W_1222:
  2884. ;**CHANGED**    MOV    DX,0
  2885.         MOV    DX,OLD_W_1223
  2886.         CALL    SUB_05BC
  2887.         MOV    AL,53H            ; 'S'
  2888.         CALL    WR_CHR_AL_05C1
  2889.         CALL    SUB_05A6
  2890.         MOV    SI,OFFSET DATA_2182    ; (72B5:2182=9)
  2891.         CALL    WR_STRING_0601
  2892.         POP    DX
  2893.         RETN
  2894. SUB_1221    ENDP
  2895.  
  2896.  
  2897. ;==========================================================================
  2898. ;         Read byte and    skip over Space or Tab
  2899. ;==========================================================================
  2900.  
  2901. RD_SK_SPTB_1238    PROC    NEAR
  2902. LOC_1238:
  2903.         CALL    RD_NXT_BYT_1B1B
  2904.         CMP    AL,20H            ; ' '
  2905.         JE    LOC_1238
  2906.         CMP    AL,9
  2907.         JE    LOC_1238
  2908.         RETN
  2909. RD_SK_SPTB_1238    ENDP
  2910.  
  2911.         DB    10,'Op-codes '
  2912.  
  2913. ;==========================================================================
  2914. ;                   SUBROUTINE
  2915. ;==========================================================================
  2916. ; op-codes: 26, 2E, 36, 3E
  2917.  
  2918. OP_1250        PROC    NEAR
  2919. LOC_1250:
  2920.         TEST    BYTE PTR DATA_2866,0FFH    ; (=0)
  2921.         JZ    LOC_125A
  2922.         JMP    LOC_17D1
  2923. LOC_125A:
  2924.         MOV    DATA_2866,AL        ; (=0)
  2925.         SHL    AL,1            ; Shift w/zeros fill
  2926.         NOT    AL
  2927.         AND    AL,30H            ; clear all but bits 4 & 5
  2928.         MOV    OPJ_HI_BYT_2869,AL    ; (72B5:2869=0)
  2929.         JMP    SHORT LOC_1277
  2930.  
  2931. ;==== External Entry into Subroutine ======================================
  2932. ; op-codes: F0, F2, F3
  2933.  
  2934. OP_1268:
  2935.         MOV    SI,OPW_TBL_WD_285F    ; (72B5:285F=0)
  2936.         AND    SI,0FFFH        ; clear high 4-bits
  2937.         ADD    SI,OFFSET MN_AAA    ; (72B5:20F4=41H)
  2938.         CALL    WR_STRING_0601
  2939.  
  2940. ;==== External Entry into Subroutine ======================================
  2941.  
  2942. SUB_1277:
  2943. LOC_1277:
  2944.         CALL    RD_NXT_BYT_1B1B
  2945.         MOV    AH,0
  2946.         MOV    BX,AX
  2947.         MOV    OPCODE_BYT_286B,AL    ; (72B5:286B=0)
  2948.         ADD    BX,BX
  2949.         ADD    BX,BX
  2950.         ADD    BX,OFFSET OPW_00_ADD    ; Op-code Dispatch Table
  2951.         MOV    CX,[BX]
  2952.         MOV    OPW_TBL_WD_285F,CX    ; (72B5:285F=0)
  2953.         MOV    DH,0F0H            ; mask for AND 
  2954.         AND    DH,CH            ; keep high 4-bits
  2955.         MOV    OPW_HI_NBL_286A,DH    ; (72B5:286A=0)
  2956.         AND    BYTE PTR OPW_HI_NBL_286A,0F0H    ; (72B5:286A=0)
  2957. ;**CHANGED**    MOV    DI,OFFSET DATA_298B    ; 132-byte line buffer
  2958.         MOV    DI,OFFSET LINE_BUF_132CHR ; 132-byte line buffer
  2959.         MOV    BX,[BX+2]
  2960.         TEST    BYTE PTR DATA_2866,0FFH    ; (=0)
  2961.         JNZ    LOC_12AD
  2962.         MOV    OPJ_HI_BYT_2869,BH    ; (72B5:2869=0)
  2963. LOC_12AD:
  2964.         AND    BH,0FH            ; keep low 12-bits of BX
  2965. ;**CHANGED**    ADD    BX,WORD PTR OPJ_BASE_288B    ; (72B5:288B=1250H)
  2966.         ADD    BX,OFFSET LOC_1250    ; beginning of op-code handlers
  2967.         XCHG    CX,BX
  2968.  
  2969.                         ; Op-code byte (X4) is index
  2970.         JMP    CX            ;*Register jump
  2971.         DB    10,'Dispatch '
  2972. ;==== External Entry into Subroutine ======================================
  2973. ; op-codes: 80-82
  2974.  
  2975. OP_12B8:
  2976.         CALL    SUB_17E6
  2977. LOC_12BB:
  2978.         CALL    SUB_18B0
  2979.         JMP    SHORT LOC_1322
  2980.  
  2981. ;==== External Entry into Subroutine ======================================
  2982. ; op-codes: 83
  2983.  
  2984. OP_12C0:
  2985.         CALL    SUB_17E6
  2986.         CALL    SUB_18B0
  2987.         MOV    AL,2CH            ; ','
  2988.         STOSB                ; Store al to es:[di]
  2989.         CALL    RD_NXT_BYT_1B1B
  2990.         CBW                ; Convrt byte to word
  2991.         XCHG    AX,DX
  2992.         MOV    BYTE PTR OPW_HI_NBL_286A,0    ; (72B5:286A=0)
  2993.         CALL    SUB_1420
  2994.         CALL    SUB_13CB
  2995.         OR    DH,DH
  2996.         JNZ    LOC_12DE
  2997.         RETN
  2998. LOC_12DE:
  2999.         DEC    DI
  3000.         CMP    BYTE PTR [DI-1],2CH    ; ','
  3001.         JNE    LOC_12DE
  3002.         NEG    DX
  3003.         MOV    AL,2DH            ; '-'
  3004.         STOSB                ; Store al to es:[di]
  3005.         JMP    SHORT LOC_1345
  3006.     ;***    DB    90H
  3007.  
  3008. ;==== External Entry into Subroutine ======================================
  3009. ; op-codes: C4, C5
  3010.  
  3011. OP_12ED:
  3012.         CALL    PARS_MOD_B_1836
  3013.         CALL    SUB_1551
  3014.         MOV    AL,2CH            ; ','
  3015.         STOSB                ; Store al to es:[di]
  3016.         MOV    SI,OFFSET DATA_2174    ; (72B5:2174=44H)
  3017.         CALL    WRT_STRING_18A4
  3018.         JMP    LOC_18BA
  3019.  
  3020. ;==== External Entry into Subroutine ======================================
  3021. ; op-codes: C6, C7
  3022.  
  3023. OP_12FF:
  3024.         CALL    PARS_MOD_B_1836
  3025.         OR    AL,AL
  3026.         JZ    LOC_12BB
  3027.         JMP    LOC_17FE
  3028.  
  3029. ;==== External Entry into Subroutine ======================================
  3030. ; op-codes: C2
  3031.  
  3032. OP_1309:
  3033.         MOV    BX,OFFSET MAC_RET_NEAR_P    ; (72B5:258B=0)
  3034.         JMP    SHORT LOC_1311
  3035.  
  3036. ;==== External Entry into Subroutine ======================================
  3037. ; op-codes: CA
  3038.  
  3039. OP_130E:
  3040.         MOV    BX,OFFSET MAC_RET_FAR_P    ; (72B5:253A=0)
  3041. LOC_1311:
  3042.         MOV    BYTE PTR [BX],1
  3043.         CALL    SUB_1B10
  3044.         INC    DATA_285C        ; (=0)
  3045.         JMP    SHORT LOC_1342
  3046.  
  3047. ;==== External Entry into Subroutine ======================================
  3048. ; op-codes: 04, 05, 0C, 0D, 14, 15, 1C, 1D, 24, 25, 2C, 2D, 34, 35, 3C, 3D,
  3049. ; A8, A9, A8, A9
  3050.  
  3051. OP_131D:
  3052.         MOV    AL,0
  3053. LOC_131F:
  3054.         CALL    SUB_1554
  3055. LOC_1322:
  3056.         MOV    AL,2CH            ; ','
  3057.         STOSB                ; Store al to es:[di]
  3058.         TEST    BYTE PTR OPCODE_BYT_286B,1    ; (72B5:286B=0)
  3059.         JZ    LOC_132F
  3060.         JMP    LOC_13C3
  3061.  
  3062. ;==== External Entry into Subroutine ======================================
  3063.  
  3064. SUB_132F:
  3065. LOC_132F:
  3066.         CALL    RD_NXT_BYT_1B1B
  3067.  
  3068. ;==== External Entry into Subroutine ======================================
  3069.  
  3070. SUB_1332:
  3071. LOC_1332:
  3072.         MOV    BYTE PTR OPW_HI_NBL_286A,0    ; (72B5:286A=0)
  3073.  
  3074. ;==== External Entry into Subroutine ======================================
  3075.  
  3076. SUB_1337:
  3077.         MOV    AH,0
  3078.         MOV    DX,AX
  3079. ;**CHANGED**    TEST    BYTE PTR DATA_2876,0FFH    ; (=0FFH)
  3080.         TEST    BYTE PTR SW_B_BYTE_REFS,0FFH    ; (=0FFH)
  3081.         JZ    LOC_1345
  3082.  
  3083. ;==== External Entry into Subroutine ======================================
  3084.  
  3085. SUB_1342:
  3086. LOC_1342:
  3087.         CALL    SUB_0EAB
  3088.  
  3089. ;==== External Entry into Subroutine ======================================
  3090.  
  3091. SUB_1345:
  3092. LOC_1345:
  3093.         OR    DX,DX
  3094.         JZ    LOC_1386
  3095.         CALL    SUB_138A
  3096.         CMP    DX,0AH
  3097.         JB    LOC_RET_1385
  3098.         MOV    AL,DL
  3099.         CALL    SUB_1A7D
  3100.         JNC    LOC_136C
  3101.         PUSH    DI
  3102.         MOV    DI,OFFSET DATA_287C    ; (72B5:287C=48H)
  3103.         MOV    AH,27H            ; ''' single quote
  3104.         CMP    AL,AH            ; number TEN
  3105.         JNE    LOC_1364
  3106.         MOV    AH,22H            ; '"' double quote
  3107. LOC_1364:
  3108.         MOV    [DI-1],AH
  3109.         OR    AH,80H            ; set bit-7
  3110.         STOSW                ; Store ax to es:[di]
  3111.         POP    DI
  3112.  
  3113. ;==== External Entry into Subroutine ======================================
  3114.  
  3115. SUB_136C:
  3116. LOC_136C:
  3117.         MOV    AL,[DI-1]
  3118.         CMP    AL,48H            ; 'H'
  3119.         JE    LOC_RET_1385
  3120. ;**CHANGED**    TEST    BYTE PTR RAD16_FLAG_2877,0FFH    ; (72B5:2877=0FFH)
  3121.         TEST    BYTE PTR SW_H_HEX_SUFFIX,0FFH    ; (72B5:2877=0FFH)
  3122.         JZ    LOC_1382
  3123.         CMP    AL,42H            ; 'B'
  3124.         JE    LOC_1382
  3125.         CMP    AL,44H            ; 'D'
  3126.         JNE    LOC_RET_1385
  3127. LOC_1382:
  3128.         MOV    AL,48H            ; 'H'
  3129.         STOSB                ; Store al to es:[di]
  3130.  
  3131. LOC_RET_1385:
  3132.         RETN
  3133. LOC_1386:
  3134.         MOV    AL,30H            ; '0'
  3135.         STOSB                ; Store al to es:[di]
  3136.         RETN
  3137.  
  3138. ;==== External Entry into Subroutine ======================================
  3139. ; Convert word in DX to ASCII HEX and write to file
  3140.  
  3141. SUB_138A:
  3142. ;**LOC_138A:
  3143.         MOV    BYTE PTR DATA_13C2,0    ; zero suppress flag = true
  3144.         MOV    AL,DH            ; to convert high byte
  3145.         CALL    SUB_1396
  3146.         MOV    AL,DL            ; to convert low byte
  3147.  
  3148. ;==== External Entry into Subroutine ======================================
  3149. ; Convert byte in AL to ASCII HEX and write to file
  3150.  
  3151. SUB_1396:
  3152.         MOV    AH,AL            ; save low nyble
  3153.         MOV    CL,4            ; shift high nyble right
  3154.         SHR    AL,CL            ; Shift w/zeros fill
  3155.         CALL    SUB_13A1        ; convert nyble to ASCII
  3156.         MOV    AL,AH            ; convert nyble to ASCII
  3157.  
  3158. ;==== External Entry into Subroutine ======================================
  3159. ; Convert nyble to ASCII HEX and write to file
  3160.  
  3161. SUB_13A1:
  3162.         AND    AL,0FH            ; clear high 4-bits
  3163.         TEST    BYTE PTR DATA_13C2,0FFH    ; suppress zero?
  3164.         JNZ    LOC_13BA
  3165.         OR    AL,AL
  3166.         JNZ    LOC_13AF
  3167.         RETN
  3168. LOC_13AF:
  3169.         MOV    DATA_13C2,AL        ; zero suppress flag
  3170.         CMP    AL,0AH            ; number TEN
  3171.         JB    LOC_13BA
  3172.         MOV    BYTE PTR [DI],30H    ; '0'
  3173.         INC    DI
  3174. LOC_13BA:
  3175.         ADD    AL,90H
  3176.         DAA                ; Decimal adjust
  3177.         ADC    AL,40H            ; '@'
  3178.         DAA                ; Decimal adjust
  3179.         STOSB                ; Store al to es:[di]
  3180.  
  3181. LOC_RET_13C1:
  3182.         RETN
  3183.  
  3184. DATA_13C2    DB    0            ; zero suppress flag
  3185.  
  3186. ;==========================================================================
  3187. LOC_13C3:
  3188.         MOV    BYTE PTR OPW_HI_NBL_286A,0    ; (72B5:286A=0)
  3189.         CALL    SUB_141D
  3190. OP_1250        ENDP
  3191.  
  3192.  
  3193. ;==========================================================================
  3194. ;                   SUBROUTINE
  3195. ;==========================================================================
  3196.  
  3197. SUB_13CB    PROC    NEAR
  3198.         MOV    AL,DL
  3199.         CALL    SUB_1A7D
  3200.         JNC    LOC_RET_13C1
  3201.         MOV    AL,DH
  3202.         CALL    SUB_1A7D
  3203.         JNC    LOC_RET_13C1
  3204.         MOV    AH,DL
  3205.         PUSH    DI
  3206.         PUSH    BX
  3207.         MOV    DI,OFFSET DATA_287C    ; (72B5:287C=48H)
  3208.         MOV    BL,27H            ; '''
  3209.         CMP    AL,BL
  3210.         JE    LOC_13EA
  3211.         CMP    AH,BL
  3212.         JNE    LOC_13EC
  3213. LOC_13EA:
  3214.         MOV    BL,22H            ; '"'
  3215. LOC_13EC:
  3216.         MOV    [DI-1],BL
  3217.         STOSW                ; Store ax to es:[di]
  3218.         XCHG    AX,BX
  3219.         OR    AL,80H
  3220.         STOSB                ; Store al to es:[di]
  3221.         POP    BX
  3222.         POP    DI
  3223.         RETN
  3224. SUB_13CB    ENDP
  3225.  
  3226.         DB    0FEH, 6, 5CH, 28H    ; (apparemtly unused)
  3227.  
  3228. ;==========================================================================
  3229. ;                   SUBROUTINE
  3230. ;==========================================================================
  3231. ; op-codes: 9A, EA
  3232.  
  3233. OP_13FB        PROC    NEAR
  3234.         CALL    SUB_1B10
  3235.         XCHG    BX,DX
  3236.         CALL    SUB_1B10
  3237.         MOV    CL,4
  3238.         PUSH    DX
  3239.         SHL    DX,CL            ; Shift w/zeros fill
  3240.         ADD    BX,DX
  3241.         XCHG    BX,DX
  3242.         CALL    SUB_14C8
  3243.         POP    DX
  3244.         CALL    SUB_1420
  3245.         SUB    DI,5
  3246.         RETN
  3247. OP_13FB        ENDP
  3248.  
  3249.  
  3250. ;==========================================================================
  3251. ;                   SUBROUTINE
  3252. ;==========================================================================
  3253. ; op-codes: A0, A1
  3254.  
  3255. OP_1417        PROC    NEAR
  3256.         CALL    SUB_15FA
  3257.         MOV    AL,2CH            ; ','
  3258.         STOSB                ; Store al to es:[di]
  3259.  
  3260. ;==== External Entry into Subroutine ======================================
  3261.  
  3262. SUB_141D:
  3263. LOC_141D:
  3264.         CALL    SUB_1B10
  3265.  
  3266. ;==== External Entry into Subroutine ======================================
  3267.  
  3268. SUB_1420:
  3269. ;**CHANGED**    MOV    DS:ALTR_W_0945+1,DX    ; (72B5:0946=0)
  3270.         MOV    DS:OLD_W_0946,DX    ; (72B5:0946=0)
  3271.         PUSH    BX
  3272.         MOV    BL,OPJ_HI_BYT_2869    ; (72B5:2869=0)
  3273.         TEST    BL,80H
  3274.         JNZ    LOC_1446        ; jump if bit-7=1
  3275.         AND    BL,30H            ; clear all but bits 4 & 5
  3276.         MOV    CL,3            ; align as word index value
  3277.         SHR    BL,CL            ; Shift w/zeros fill
  3278.         MOV    BH,0
  3279.         MOV    AX,DATA_2823[BX]    ; 4-words indexed
  3280.         OR    AX,AX
  3281.         JZ    LOC_1446
  3282.         ADD    DX,AX
  3283. ;**CHANGED**    MOV    BYTE PTR DS:ALTR_J_B_0943+1,0    ; (72B5:0944=0AH)
  3284.         MOV    BYTE PTR DS:OLD_JUMP_0944,0FFH    ; don't take jump
  3285. LOC_1446:
  3286.         POP    BX
  3287.  
  3288. ;==== External Entry into Subroutine ======================================
  3289.  
  3290. SUB_1447:
  3291. LOC_1447:
  3292.         CALL    SUB_181D
  3293.         PUSH    DI
  3294.         MOV    DI,DATA_288D        ; (=0)
  3295.         CMP    DI,DATA_2893        ; (=0)
  3296.         JAE    LOC_147C
  3297.         MOV    AX,[DI]
  3298.         CMP    AX,DATA_2858        ; (=0)
  3299.         POP    DI
  3300.         JNC    LOC_147B
  3301. ;**CHANGED**    MOV    DX,DS:ALTR_W_0945+1    ; (72B5:0946=0)
  3302.         MOV    DX,DS:OLD_W_0946    ; (72B5:0946=0)
  3303.         TEST    DX,0F000H
  3304.         JZ    LOC_146E
  3305.         MOV    AX,3F09H        ; "TAB ?"
  3306.         STOSW                ; Store ax to es:[di]
  3307.         JMP    SHORT LOC_1472
  3308. LOC_146E:
  3309.         MOV    CL,4
  3310.         SHL    DX,CL            ; Shift w/zeros fill
  3311. LOC_1472:
  3312. ;**CHANGED**    MOV    DS:ALTR_W_09A0+1,DX    ; (72B5:09A1=0)
  3313.         MOV    DS:OLD_W_09A1,DX    ; (72B5:09A1=0)
  3314.         MOV    AL,53H            ; 'S'
  3315.         JMP    LOC_1519
  3316. LOC_147B:
  3317.         PUSH    DI
  3318. LOC_147C:
  3319.         CALL    SUB_0E70
  3320.         TEST    BYTE PTR [DI],20H    ; ' '
  3321.         POP    DI
  3322.         JZ    LOC_148F
  3323. ;**CHANGED**    TEST    BYTE PTR DATA_2873,0FFH    ; (=0FFH)
  3324.         TEST    BYTE PTR SW_L_LABEL_NUMB,0FFH    ; (=0FFH)
  3325.         JNZ    LOC_148F
  3326.         JMP    LOC_1345
  3327. LOC_148F:
  3328.         MOV    AL,OPW_HI_NBL_286A    ; (72B5:286A=0)
  3329.         MOV    AH,DATA_2887        ; (=0)
  3330.         CMP    DX,DATA_285A        ; (=0)
  3331.         JAE    LOC_14B8
  3332.         OR    AH,AH
  3333.         JNZ    LOC_14C8
  3334.         OR    AL,AL
  3335.         JZ    LOC_14B5
  3336.         CMP    AL,60H            ; '`'
  3337.         JA    LOC_14C8
  3338.         CMP    BYTE PTR [DI-1],3AH    ; ':'
  3339.         JE    LOC_14B5
  3340.         MOV    AX,5344H        ; 'DS'
  3341.         STOSW                ; Store ax to es:[di]
  3342.         MOV    AL,3AH            ; ':'
  3343.         STOSB                ; Store al to es:[di]
  3344. LOC_14B5:
  3345.         JMP    LOC_1342
  3346. LOC_14B8:
  3347.         OR    AX,AX
  3348.         JNZ    LOC_14C8
  3349.         CMP    DX,0FFFFH        ; test for 0FFFF (s/b H)
  3350.     ;***    nop                ;*Fixup for MASM (M)
  3351.         PATCH83    0FFH            ;PATCH83 edited in
  3352. ;**FIXED**    JE    LOC_1514
  3353.         JNE    LOC_14BC_X        ; jump, could be label
  3354.  
  3355.         ; new code to correct the 0FFFF 'H' suffix (JEG)
  3356.         CALL    SUB_138A        ; convert 0FFFF to HEX
  3357.         MOV    AL,'H'            ; output 'H' Hex suffix
  3358.         STOSB
  3359.         RETN
  3360.  
  3361. LOC_14BC_X:    MOV    SI,OFFSET MN_OFFSET    ; (72B5:23A4=4FH)
  3362.         CALL    WRT_STRING_18A4
  3363.  
  3364. ;==== External Entry into Subroutine ======================================
  3365.  
  3366. SUB_14C8:
  3367. LOC_14C8:
  3368.         CMP    BYTE PTR DATA_2861,2    ; (=0)
  3369.         JE    LOC_14D9
  3370.         TEST    BYTE PTR DATA_2887,80H    ; (=0)
  3371.         JNZ    LOC_RET_1501
  3372.         JMP    LOC_0EAB
  3373. LOC_14D9:
  3374.         CALL    SUB_1B70
  3375.         JC    LOC_150D
  3376.         JZ    LOC_1502
  3377.         TEST    BYTE PTR OPW_HI_NBL_286A,0FFH    ; (72B5:286A=0)
  3378.         JZ    LOC_14F2
  3379.         CMP    BYTE PTR [SI-2],3
  3380.         JNE    LOC_14F2
  3381.         PUSH    SI
  3382.         CALL    SUB_1897
  3383.         POP    SI
  3384. LOC_14F2:
  3385.         PUSH    SI
  3386.         CALL    WRT_STRING_18A4
  3387.         POP    AX
  3388.         XCHG    AX,SI
  3389.         TEST    BYTE PTR [SI-1],80H
  3390.         JZ    LOC_RET_1501
  3391. ;**CHANGED**    MOV    DS:ALTR_W_09E2+1,AX    ; (72B5:09E3=0FFFFH)
  3392.         MOV    DS:OLD_W_09E3,AX    ; (72B5:09E3=0FFFFH)
  3393.  
  3394. LOC_RET_1501:
  3395.         RETN
  3396.  
  3397. LOC_1502:
  3398.         TEST    BYTE PTR [SI-1],80H
  3399.         JZ    LOC_150D
  3400.         INC    SI
  3401. ;**CHANGED**    MOV    DS:ALTR_W_09E2+1,SI    ; (72B5:09E3=0FFFFH)
  3402.         MOV    DS:OLD_W_09E3,SI    ; (72B5:09E3=0FFFFH)
  3403. LOC_150D:
  3404.         TEST    BYTE PTR DATA_2887,80H    ; (=0)
  3405.         JZ    LOC_1517
  3406.  
  3407. ;**LOC_1514:
  3408. ;**FIXED**    JMP    LOC_138A        ; convert DX to ASCII HEX
  3409.         ; new code to correct the 'D' command 'H' suffix (JEG)
  3410.         CALL    SUB_138A        ; convert number to HEX
  3411.         MOV    AL,'H'            ; output 'H' Hex suffix
  3412.         STOSB
  3413.         RETN
  3414.  
  3415. LOC_1517:
  3416.         MOV    AL,4CH            ; 'L'
  3417. LOC_1519:
  3418.         STOSB                ; Store al to es:[di]
  3419.         CALL    SUB_0EAB
  3420. OP_1417        ENDP
  3421.  
  3422.  
  3423. ;==========================================================================
  3424. ;         Convert word in DX to HEX, store [DI]
  3425. ;==========================================================================
  3426.  
  3427. CNV_W_2_HX_151D    PROC    NEAR
  3428.         MOV    AL,DH
  3429.         CALL    CNV_B_2_HX_1524
  3430.         MOV    AL,DL
  3431.  
  3432. ;==== External Entry into Subroutine ======================================
  3433. ;
  3434. ;         Convert byte in AL to HEX, store [DI]
  3435.  
  3436. CNV_B_2_HX_1524:
  3437.         MOV    AH,AL
  3438.         SHR    AL,1            ; Shift w/zeros fill
  3439.         SHR    AL,1            ; Shift w/zeros fill
  3440.         SHR    AL,1            ; Shift w/zeros fill
  3441.         SHR    AL,1            ; Shift w/zeros fill
  3442.         CALL    SUB_1533
  3443.         MOV    AL,AH
  3444.  
  3445. ;==== External Entry into Subroutine ======================================
  3446.  
  3447. SUB_1533:                    ; convert low 4-bits to ASCII
  3448.         AND    AL,0FH            ; clear high 4-bits
  3449.         ADD    AL,90H
  3450.         DAA                ; Decimal adjust
  3451.         ADC    AL,40H            ; '@'
  3452.         DAA                ; Decimal adjust
  3453.         STOSB                ; Store al to es:[di]
  3454.         RETN
  3455. CNV_W_2_HX_151D    ENDP
  3456.  
  3457.  
  3458. ;==========================================================================
  3459. ;                   SUBROUTINE
  3460. ;==========================================================================
  3461. ; op-codes: D4, D5
  3462.  
  3463. OP_153D        PROC    NEAR
  3464.         CALL    RD_NXT_BYT_1B1B
  3465.         CMP    AL,0AH
  3466.         JNE    LOC_1545
  3467.         RETN
  3468. LOC_1545:
  3469.         JMP    LOC_1810
  3470. OP_153D        ENDP
  3471.  
  3472.  
  3473. ;==========================================================================
  3474. ;                   SUBROUTINE
  3475. ;==========================================================================
  3476. ; op-codes: 00, 01, 08, 09, 10, 11, 18, 19, 20, 21, 28, 29, 30, 31, 38, 39,
  3477. ; 88, 89
  3478.  
  3479. OP_1548        PROC    NEAR
  3480.         CALL    PARS_MOD_B_1836
  3481.         CALL    SUB_18BA
  3482.         MOV    AL,2CH            ; ','
  3483.         STOSB                ; Store al to es:[di]
  3484.  
  3485. ;==== External Entry into Subroutine ======================================
  3486.  
  3487. SUB_1551:
  3488.         MOV    AL,REG_FIELD_2845    ; (72B5:2845=0)
  3489.  
  3490. ;==== External Entry into Subroutine ======================================
  3491.  
  3492. SUB_1554:
  3493. LOC_1554:
  3494.         MOV    SI,OFFSET BYTE_REGS_249B    ; (72B5:249B=41H)
  3495.         TEST    BYTE PTR OPCODE_BYT_286B,1    ; (72B5:286B=0)
  3496.         JZ    LOC_1561
  3497.  
  3498. ;==== External Entry into Subroutine ======================================
  3499. ; op-codes: 40-4F, 50-5F
  3500.  
  3501. OP_155E:
  3502. LOC_155E:
  3503.         MOV    SI,OFFSET WORD_REGS_24AB    ; (72B5:24AB=41H)
  3504. LOC_1561:
  3505.         AND    AL,7            ; clear high 5-bits
  3506.         CBW                ; Convrt byte to word
  3507.         ADD    SI,AX
  3508.         ADD    SI,AX
  3509.         MOVSW                ; Mov [si] to es:[di]
  3510.         RETN
  3511. OP_1548        ENDP
  3512.  
  3513.  
  3514. ;==========================================================================
  3515. ;                   SUBROUTINE
  3516. ;==========================================================================
  3517. ; op-codes: 06, 07, 0E, 16, 17, 1E, 1F,
  3518.  
  3519. OP_156A        PROC    NEAR
  3520.         MOV    CL,3
  3521.         SHR    AL,CL            ; Shift w/zeros fill
  3522.  
  3523. ;==== External Entry into Subroutine ======================================
  3524.  
  3525. SUB_156E:
  3526. LOC_156E:
  3527.         AND    AL,3            ; clear all but 2-LSB's
  3528.         MOV    SI,OFFSET SEG_REGS_24BB    ; (72B5:24BB=45H)
  3529.         JMP    SHORT LOC_1561
  3530. OP_156A        ENDP
  3531.  
  3532.  
  3533. ;==========================================================================
  3534. ;                   SUBROUTINE
  3535. ;==========================================================================
  3536. ; op-codes: 8C
  3537.  
  3538. OP_1575        PROC    NEAR
  3539.         MOV    BYTE PTR OPCODE_BYT_286B,1    ; (72B5:286B=0)
  3540.         CALL    PARS_MOD_B_1836
  3541.         CMP    AL,4
  3542.         JB    LOC_1584
  3543. LOC_1581:
  3544.         JMP    LOC_17FE
  3545. LOC_1584:
  3546.         CALL    SUB_18BA
  3547.         MOV    AL,2CH            ; ','
  3548.         STOSB                ; Store al to es:[di]
  3549.         MOV    AL,REG_FIELD_2845    ; (72B5:2845=0)
  3550.         JMP    SHORT LOC_156E
  3551.  
  3552. ;==== External Entry into Subroutine ======================================
  3553. ; op-codes: 8E
  3554.  
  3555. OP_158F:
  3556.         CALL    PARS_MOD_B_1836
  3557.         CMP    AL,4
  3558.         JAE    LOC_1581
  3559.         CALL    SUB_156E
  3560.         MOV    BYTE PTR OPCODE_BYT_286B,1    ; (72B5:286B=0)
  3561.         JMP    SHORT LOC_15B4
  3562.  
  3563. ;==== External Entry into Subroutine ======================================
  3564. ; op-codes: 8F
  3565.  
  3566. OP_15A0:
  3567.         CALL    PARS_MOD_B_1836
  3568.         OR    AL,AL
  3569.         JNZ    LOC_1581
  3570.         JMP    SHORT LOC_15B7
  3571.  
  3572. ;==== External Entry into Subroutine ======================================
  3573. ; op-codes: 8D
  3574.  
  3575. OP_15A9:
  3576.         OR    BYTE PTR OPCODE_BYT_286B,1    ; (72B5:286B=0)
  3577.  
  3578. ;==== External Entry into Subroutine ======================================
  3579. ; op-codes: 02, 03, 0A, 0B, 12, 13, 1A, 1B, 22, 23, 2A, 2B, 32, 33, 3A, 3B,
  3580. ; 84-87, 8A, 8B
  3581.  
  3582. OP_15AE:
  3583.         CALL    PARS_MOD_B_1836
  3584.         CALL    SUB_1551
  3585. LOC_15B4:
  3586.         MOV    AL,2CH            ; ','
  3587.         STOSB                ; Store al to es:[di]
  3588. LOC_15B7:
  3589.         JMP    LOC_18BA
  3590.  
  3591. ;==== External Entry into Subroutine ======================================
  3592. ; op-codes: EB
  3593.  
  3594. OP_15BA:
  3595.         INC    DATA_285C        ; (=0)
  3596.  
  3597. ;==== External Entry into Subroutine ======================================
  3598. ; op-codes: 70-7F E0-E3
  3599.  
  3600. OP_15BE:
  3601.         CALL    RD_NXT_BYT_1B1B
  3602.         CBW                ; Convrt byte to word
  3603.         MOV    DX,AX
  3604.         JMP    SHORT LOC_15E2
  3605.  
  3606. ;==== External Entry into Subroutine ======================================
  3607. ; op-codes: E9
  3608.  
  3609. OP_15C6:
  3610.         INC    DATA_285C        ; (=0)
  3611.         CALL    SUB_1B10
  3612.         PUSH    DX
  3613.         CALL    SUB_15E2
  3614.         POP    DX
  3615.         INC    DH
  3616.         JNZ    LOC_RET_15DE
  3617.         OR    DL,DL
  3618.         JNS    LOC_RET_15DE        ; Jump if not sign
  3619.         INC    DATA_285D        ; (=0)
  3620.  
  3621. LOC_RET_15DE:
  3622.         RETN
  3623.  
  3624. ;==== External Entry into Subroutine ======================================
  3625. ; op-codes: E8
  3626.  
  3627. OP_15DF:
  3628.         CALL    SUB_1B10
  3629.  
  3630. ;==== External Entry into Subroutine ======================================
  3631.  
  3632. SUB_15E2:
  3633. LOC_15E2:
  3634.         ADD    DX,DATA_2858        ; (=0)
  3635.         JMP    LOC_1447
  3636.  
  3637. ;==== External Entry into Subroutine ======================================
  3638. ; op-codes: 91-97
  3639.  
  3640. OP_15E9:
  3641.         CALL    OP_155E
  3642.         MOV    AL,2CH            ; ','
  3643.         STOSB                ; Store al to es:[di]
  3644.         MOV    AL,0
  3645.         JMP    LOC_155E
  3646.  
  3647. ;==== External Entry into Subroutine ======================================
  3648. ; op-codes: A2, A3
  3649.  
  3650. OP_15F4:
  3651.         CALL    SUB_141D
  3652.         MOV    AL,2CH            ; ','
  3653.         STOSB                ; Store al to es:[di]
  3654.  
  3655. ;==== External Entry into Subroutine ======================================
  3656.  
  3657. SUB_15FA:
  3658.         JMP    SHORT LOC_1649
  3659.     ;***    DB    90H
  3660.  
  3661. ;==== External Entry into Subroutine ======================================
  3662. ; op-codse: A4-A7, AA-AF
  3663.  
  3664. OP_15FD_STRINGS:
  3665.         TEST    BYTE PTR DATA_2866,0FFH    ; (=0)
  3666.         JZ    LOC_RET_165F
  3667.         MOV    DL,AL
  3668.         SUB    AL,0A4H
  3669.         SHR    AL,1            ; Shift w/zeros fill
  3670.         MOV    BX,OFFSET STR_2030    ; (72B5:2030=95H)
  3671.         CALL    SUB_185A
  3672.         DEC    BX
  3673.         JNZ    LOC_1616
  3674.         JMP    LOC_17D1
  3675. LOC_1616:
  3676.         CALL    SUB_1897
  3677.         CMP    DL,0A8H
  3678.         JA    LOC_1624
  3679.         MOV    SI,OFFSET DATA_2165    ; (72B5:2165=5BH)
  3680.         CALL    WRT_STRING_18A4
  3681. LOC_1624:
  3682.         CALL    SUB_181D
  3683.         MOV    SI,OFFSET DATA_2417    ; (72B5:2417=5BH)
  3684.         JMP    LOC_18A4
  3685.  
  3686. ;==== External Entry into Subroutine ======================================
  3687. ; op-codes: B0-B7
  3688.  
  3689. OP_162D:
  3690.         MOV    BYTE PTR OPCODE_BYT_286B,0    ; (72B5:286B=0)
  3691.         JMP    SHORT LOC_1639
  3692.  
  3693. ;==== External Entry into Subroutine ======================================
  3694. ; op-codes: B8-BF
  3695.  
  3696. OP_1634:
  3697.         MOV    BYTE PTR OPCODE_BYT_286B,1    ; (72B5:286B=0)
  3698. LOC_1639:
  3699.         AND    AL,7            ; clear high 5-bits
  3700.         JMP    LOC_131F
  3701.  
  3702. ;==== External Entry into Subroutine ======================================
  3703. ; op-codes: CC
  3704.  
  3705. OP_163E:
  3706.         MOV    AL,3
  3707.         JMP    LOC_1332
  3708.  
  3709. ;==== External Entry into Subroutine ======================================
  3710. ; op-codes: E6, E7
  3711.  
  3712. OP_1643:
  3713.         CALL    OP_1654
  3714.         MOV    AL,2CH            ; ','
  3715.         STOSB                ; Store al to es:[di]
  3716.  
  3717. ;==== External Entry into Subroutine ======================================
  3718.  
  3719. SUB_1649:
  3720. LOC_1649:
  3721.         MOV    AL,0
  3722.         JMP    LOC_1554
  3723.  
  3724. ;==== External Entry into Subroutine ======================================
  3725. ; op-codes: E4, E5
  3726.  
  3727. OP_164E:
  3728.         CALL    SUB_1649
  3729.         MOV    AL,2CH            ; ','
  3730.         STOSB                ; Store al to es:[di]
  3731.  
  3732. ;==== External Entry into Subroutine ======================================
  3733. ; op-codes: CD
  3734. OP_1654:
  3735.         CALL    RD_NXT_BYT_1B1B
  3736.         CALL    SUB_1337
  3737.  
  3738. ;==== External Entry into Subroutine ======================================
  3739.  
  3740. SUB_165A:
  3741. LOC_165A:
  3742.         MOV    BYTE PTR DATA_287C,80H    ; (72B5:287C=48H)
  3743.  
  3744. LOC_RET_165F:
  3745.         RETN
  3746.  
  3747. ;==== External Entry into Subroutine ======================================
  3748. ; op-codes: D8
  3749.  
  3750. OP_1660:
  3751.         CALL    SUB_171A
  3752.         MOV    AX,5453H        ; 'ST'
  3753.         STOSW                ; Store ax to es:[di]
  3754.         MOV    AL,2CH            ; ','
  3755.         STOSB                ; Store al to es:[di]
  3756.  
  3757. ;==== External Entry into Subroutine ======================================
  3758.  
  3759. SUB_166A:
  3760. LOC_166A:
  3761.         MOV    AX,5453H        ; 'ST'
  3762.         STOSW                ; Store ax to es:[di]
  3763.         MOV    AX,3028H        ; '(0'
  3764.         OR    AH,RM_FIELD_2843    ; patch the '0', above
  3765.         STOSW                ; Store ax to es:[di]
  3766.         MOV    AL,29H            ; ')'
  3767.         STOSB                ; Store al to es:[di]
  3768.         RETN
  3769.  
  3770. ;==== External Entry into Subroutine ======================================
  3771. ; op-code: DC
  3772. OP_167A:
  3773.         CALL    SUB_171A
  3774.         CALL    SUB_166A
  3775.         JMP    LOC_1712
  3776.  
  3777. ;==== External Entry into Subroutine ======================================
  3778. ; op-codes: D9
  3779.  
  3780. OP_1683_ESC1:
  3781.         CALL    SUB_171A
  3782.         MOV    AL,MOD_REG_RM_286C    ; (72B5:286C=0)
  3783.         SUB    AL,0E0H
  3784.         JC    LOC_1697
  3785.         MOV    BX,OFFSET ESC_2054    ; (72B5:2054=0BBH)
  3786.         CALL    SUB_185A
  3787.         DEC    BX
  3788.         JZ    LOC_16AF
  3789.  
  3790. LOC_RET_1696:
  3791.         RETN
  3792. LOC_1697:
  3793.         MOV    BX,OFFSET ESC_204C    ; (72B5:204C=40H)
  3794.         MOV    AL,REG_FIELD_2845    ; (72B5:2845=0)
  3795.         CALL    SUB_185A
  3796.         MOV    AL,MOD_REG_RM_286C    ; (72B5:286C=0)
  3797.         SUB    AL,0D0H
  3798.         JC    LOC_166A
  3799.         JZ    LOC_RET_1696
  3800.         AND    AL,0FH            ; clear high 4-bits
  3801.         CMP    AL,8            ; test if bit-3 set
  3802.         JAE    LOC_166A        ; jump if 8 thru 15
  3803. LOC_16AF:
  3804.         JMP    LOC_17FE        ; jump, 0 thru 7
  3805.  
  3806. ;==== External Entry into Subroutine ======================================
  3807. ; op-codes: DA
  3808.  
  3809. OP_16B2:
  3810.         CALL    SUB_171A
  3811.         JMP    LOC_17FE
  3812.  
  3813. ;==== External Entry into Subroutine ======================================
  3814. ; op-codes: DB
  3815.  
  3816. OP_16B8_ESC3:
  3817.         CALL    SUB_171A
  3818.         MOV    BX,OFFSET ESC_20B4    ; (72B5:20B4=0F3H)
  3819.         MOV    AL,MOD_REG_RM_286C    ; (72B5:286C=0)
  3820.         SUB    AL,0E0H
  3821.         JC    LOC_172F
  3822.         CMP    AL,4
  3823.         JAE    LOC_172F
  3824.         JMP    LOC_185A
  3825.  
  3826. ;==== External Entry into Subroutine ======================================
  3827. ; op-codes: DD, DF
  3828.  
  3829. OP_16CC_ESC5_7:
  3830.         CALL    SUB_171A
  3831.         CMP    BYTE PTR REG_FIELD_2845,4    ; (72B5:2845=0)
  3832.         JAE    LOC_172F
  3833.         MOV    BX,OFFSET ESC_20CC    ; (72B5:20CC=0F7H)
  3834.         CALL    SUB_185A
  3835.         CMP    BYTE PTR OPCODE_BYT_286B,0DDH    ; (72B5:286B=0)
  3836.         JE    LOC_16EA
  3837.         TEST    BYTE PTR REG_FIELD_2845,0FFH    ; (72B5:2845=0)
  3838.         JZ    LOC_172F
  3839. LOC_16EA:
  3840.         JMP    LOC_166A
  3841.  
  3842. ;==== External Entry into Subroutine ======================================
  3843. ; op-codes: DE
  3844.  
  3845. OP_16ED_ESC6:
  3846.         CALL    SUB_171A
  3847.         MOV    BX,OFFSET ESC_20D4    ; (72B5:20D4=0ADH)
  3848.         MOV    AL,REG_FIELD_2845    ; (72B5:2845=0)
  3849.         CALL    SUB_185A
  3850.         CMP    BYTE PTR REG_FIELD_2845,3    ; (72B5:2845=0)
  3851.         JNE    LOC_1708
  3852.         CMP    BYTE PTR MOD_REG_RM_286C,0D9H    ; (72B5:286C=0)
  3853.         JNE    LOC_172F
  3854.         RETN
  3855. LOC_1708:
  3856.         CALL    SUB_166A
  3857.         CMP    BYTE PTR REG_FIELD_2845,2    ; (72B5:2845=0)
  3858.         JE    LOC_RET_1719
  3859. LOC_1712:
  3860.         MOV    AL,2CH            ; ','
  3861.         STOSB                ; Store al to es:[di]
  3862.         MOV    AX,5453H        ; 'ST'
  3863.         STOSW                ; Store ax to es:[di]
  3864.  
  3865. LOC_RET_1719:
  3866.         RETN
  3867.  
  3868. ;==== External Entry into Subroutine ======================================
  3869.  
  3870. SUB_171A:
  3871. ;**CHANGED**    TEST    BYTE PTR DATA_2874,0FFH    ; (=0FFH)
  3872.         TEST    BYTE PTR SW_F_8087_CODES,0FFH    ; (=0FFH)
  3873.         JNZ    LOC_1735
  3874.         CALL    SUB_1855
  3875.         CMP    BYTE PTR MOD_FIELD_2844,3    ; (72B5:2844=0)
  3876.         JE    LOC_RET_1719
  3877.         DEC    BX
  3878.         POP    AX
  3879.         JNZ    LOC_1732
  3880. LOC_172F:
  3881.         JMP    LOC_17FE
  3882. LOC_1732:
  3883.         JMP    LOC_18BA
  3884. LOC_1735:
  3885.         POP    CX
  3886.                         ; 9DH s/b MN_ESC-MN_AAA
  3887. ;**CHANGED**    MOV    OPW_TBL_WD_285F,9DH    ; (72B5:285F=0)
  3888.         MOV    OPW_TBL_WD_285F,MN_ESC-MN_AAA
  3889.         AND    AL,7            ; clear high 5-bits
  3890.         MOV    DL,AL
  3891.         CALL    PARS_MOD_B_1836
  3892.         MOV    CL,3
  3893.         SHL    DL,CL            ; Shift w/zeros fill
  3894.         OR    AL,DL
  3895.         CALL    SUB_1332
  3896.         MOV    BYTE PTR OPCODE_BYT_286B,1    ; (72B5:286B=0)
  3897.         JMP    LOC_15B4
  3898.  
  3899. ;==== External Entry into Subroutine ======================================
  3900. ; op-codes: EC, ED
  3901.  
  3902. OP_1754:
  3903.         CALL    SUB_1649
  3904.         MOV    AL,2CH            ; ','
  3905.         STOSB                ; Store al to es:[di]
  3906.  
  3907. ;==== External Entry into Subroutine ======================================
  3908.  
  3909. SUB_175A:
  3910.         MOV    AX,5844H        ; 'DT'
  3911.         STOSW                ; Store ax to es:[di]
  3912.         RETN
  3913.  
  3914. ;==== External Entry into Subroutine ======================================
  3915. ; op-codes: EE, EF
  3916.  
  3917. OP_175F:
  3918.         CALL    SUB_175A
  3919.         MOV    AL,2CH            ; ','
  3920.         STOSB                ; Store al to es:[di]
  3921.         JMP    LOC_1649
  3922.  
  3923. ;==== External Entry into Subroutine ======================================
  3924. ; op-codes: D0-D3
  3925.  
  3926. OP_1768:
  3927.         CALL    SUB_1865
  3928.         CALL    SUB_18B0
  3929.         MOV    AL,2CH            ; ','
  3930.         STOSB                ; Store al to es:[di]
  3931.         TEST    BYTE PTR OPCODE_BYT_286B,2    ; (72B5:286B=0)
  3932.         JZ    LOC_177D
  3933.         MOV    AX,4C43H        ; 'CL'
  3934.         STOSW                ; Store ax to es:[di]
  3935.         RETN
  3936. LOC_177D:
  3937.         MOV    AL,31H            ; '1'
  3938.         STOSB                ; Store al to es:[di]
  3939.         RETN
  3940.  
  3941. ;==== External Entry into Subroutine ======================================
  3942. ; op-codes: F6, F7
  3943.  
  3944. OP_1781:
  3945.         CALL    SUB_1865
  3946.         OR    AL,AL
  3947.         JNZ    LOC_179D
  3948.         JMP    LOC_12BB
  3949.  
  3950. ;==== External Entry into Subroutine ======================================
  3951. ; op-codes: FE, FF
  3952.  
  3953. OP_178B:
  3954.         CALL    SUB_1865
  3955.         CMP    BYTE PTR OPW_HI_NBL_286A,50H    ; (72B5:286A=0) 'P'
  3956.         JNE    LOC_1799
  3957.         INC    DATA_285C        ; (=0)
  3958. LOC_1799:
  3959.         CMP    AL,2
  3960.         JAE    LOC_17A0
  3961. LOC_179D:
  3962.         JMP    LOC_18B0
  3963. LOC_17A0:
  3964.         TEST    BYTE PTR OPCODE_BYT_286B,1    ; (72B5:286B=0)
  3965.         JZ    LOC_17FE
  3966.         CMP    AL,2
  3967.         JE    LOC_179D
  3968.         CMP    AL,4
  3969.         JE    LOC_179D
  3970.         JMP    LOC_18BA
  3971.  
  3972. ;==== External Entry into Subroutine ======================================
  3973. ; op-codes: C3
  3974.  
  3975. OP_17B2:
  3976.         MOV    BX,OFFSET MAC_RET_NEAR    ; (72B5:2568=0)
  3977.         JMP    SHORT LOC_17C0
  3978.  
  3979. ;==== External Entry into Subroutine ======================================
  3980. ; op-codes: CF
  3981. OP_17B7:
  3982.         INC    DATA_285C        ; (=0)
  3983.         JMP    SHORT LOC_17CA
  3984.  
  3985. ;==== External Entry into Subroutine ======================================
  3986. ; op-codes: CB
  3987.  
  3988. OP_17BD:
  3989.         MOV    BX,OFFSET MAC_RET_FAR    ; (72B5:2518=0)
  3990. LOC_17C0:
  3991.         MOV    BYTE PTR [BX],1
  3992.         INC    DATA_285C        ; (=0)
  3993.  
  3994. ;==== External Entry into Subroutine ======================================
  3995. ; op-codes: D7
  3996.  
  3997. OP_17C7:
  3998.         CALL    SUB_181D
  3999.  
  4000. ;==== External Entry into Subroutine ======================================
  4001. ; op-codes: 27, 2F, 37, 3F, 90, 98, 99, 9B-9F, CE, F4, F5, F8-FD
  4002.  
  4003. OP_17CA:
  4004. LOC_17CA:
  4005.         TEST    BYTE PTR DATA_2866,0FFH    ; (=0)
  4006.         JZ    LOC_RET_1835
  4007.  
  4008. ;==== External Entry into Subroutine ======================================
  4009. ; op-codes: 0F, 60-6F, C0, C1, C8, C9, D6, F1
  4010.  
  4011. OP_17D1:
  4012. LOC_17D1:
  4013.         TEST    BYTE PTR DATA_2866,0FFH    ; (=0)
  4014.         JZ    LOC_180A
  4015.         MOV    AL,DATA_2866        ; (=0)
  4016.         CALL    SUB_1332
  4017.         MOV    AL,2CH            ; ','
  4018.         STOSB                ; Store al to es:[di]
  4019.         MOV    AL,OPCODE_BYT_286B    ; (72B5:286B=0)
  4020.         JMP    SHORT LOC_180A
  4021.  
  4022. ;==== External Entry into Subroutine ======================================
  4023.  
  4024. SUB_17E6:
  4025.         CALL    SUB_1865
  4026.         CMP    BYTE PTR OPCODE_BYT_286B,82H    ; (72B5:286B=0)
  4027.         JB    LOC_RET_17FC
  4028.         CMP    AL,1
  4029.         JE    LOC_17FD
  4030.         CMP    AL,4
  4031.         JE    LOC_17FD
  4032.         CMP    AL,6
  4033.         JE    LOC_17FD
  4034.  
  4035. LOC_RET_17FC:
  4036.         RETN
  4037. LOC_17FD:
  4038.         POP    BX
  4039. LOC_17FE:
  4040.         MOV    AL,OPCODE_BYT_286B    ; (72B5:286B=0)
  4041.         CALL    SUB_1332
  4042.         MOV    AL,2CH            ; ','
  4043.         STOSB                ; Store al to es:[di]
  4044.         MOV    AL,MOD_REG_RM_286C    ; (72B5:286C=0)
  4045.  
  4046. LOC_180A:                    ; 6AH s/b MN_DB-MN_AAA
  4047. ;**CHANGED**    MOV    OPW_TBL_WD_285F,6AH    ; (72B5:285F=0)
  4048.         MOV    OPW_TBL_WD_285F,MN_DB-MN_AAA
  4049. LOC_1810:
  4050.         CALL    SUB_1332
  4051.         MOV    AL,9            ; TAB
  4052.         STOSB                ; Store al to es:[di]
  4053.         MOV    AX,3F3FH        ; '??'
  4054.         STOSW                ; Store ax to es:[di]
  4055.         JMP    LOC_165A
  4056.  
  4057. ;==== External Entry into Subroutine ======================================
  4058.  
  4059. SUB_181D:
  4060.         TEST    BYTE PTR DATA_2866,0FFH    ; (=0)
  4061.         JZ    LOC_RET_1835
  4062.         PUSH    AX
  4063.         MOV    AL,DATA_2866        ; (=0)
  4064.         CALL    OP_156A
  4065.         MOV    AL,3AH            ; ':'
  4066.         STOSB                ; Store al to es:[di]
  4067.         MOV    BYTE PTR DATA_2866,0    ; (=0)
  4068.         POP    AX
  4069.         STC                ; Set carry flag
  4070.  
  4071. LOC_RET_1835:
  4072.         RETN
  4073.  
  4074. ;==== External Entry into Subroutine ======================================
  4075. ;
  4076. ;         Parse    MOD-REG-R/M byte
  4077.  
  4078. PARS_MOD_B_1836:
  4079.         CALL    RD_NXT_BYT_1B1B
  4080.         MOV    MOD_REG_RM_286C,AL    ; (72B5:286C=0)
  4081.         MOV    AH,AL
  4082.         AND    AL,7            ; clear high 5-bits
  4083.         MOV    RM_FIELD_2843,AL    ; (72B5:2843=0)
  4084.         MOV    CL,3
  4085.         SHR    AH,CL            ; Shift w/zeros fill
  4086.         MOV    AL,AH
  4087.         AND    AL,7            ; clear high 5-bits
  4088.         MOV    REG_FIELD_2845,AL    ; (72B5:2845=0)
  4089.         SHR    AH,CL            ; Shift w/zeros fill
  4090.         MOV    MOD_FIELD_2844,AH    ; (72B5:2844=0)
  4091.         RETN
  4092.  
  4093. ;==== External Entry into Subroutine ======================================
  4094.  
  4095. SUB_1855:
  4096.         CALL    PARS_MOD_B_1836
  4097.         MOV    DL,AL
  4098.  
  4099. ;==== External Entry into Subroutine ======================================
  4100.  
  4101. SUB_185A:
  4102. LOC_185A:
  4103.         MOV    AH,0
  4104.         ADD    BX,AX
  4105.         ADD    BX,AX
  4106.         XOR    AX,AX
  4107.         DEC    BX
  4108.         JMP    SHORT LOC_1873
  4109.  
  4110. ;==== External Entry into Subroutine ======================================
  4111.  
  4112. SUB_1865:
  4113.         CALL    PARS_MOD_B_1836
  4114.         MOV    DL,AL
  4115.         CBW                ; Convrt byte to word
  4116.         ADD    BX,AX
  4117.         ADD    BX,AX
  4118.         ADD    BX,AX
  4119.         MOV    AL,[BX]
  4120. LOC_1873:
  4121.         TEST    BYTE PTR DATA_2866,0FFH    ; (=0)
  4122.         JNZ    LOC_187D
  4123.         MOV    OPJ_HI_BYT_2869,AL    ; (72B5:2869=0)
  4124. LOC_187D:
  4125.         MOV    AX,[BX+1]
  4126.         MOV    OPW_TBL_WD_285F,AX    ; (72B5:285F=0)
  4127.         MOV    BX,AX
  4128.         MOV    OPW_HI_NBL_286A,AH    ; (72B5:286A=0)
  4129.         AND    BYTE PTR OPW_HI_NBL_286A,0F0H    ; clear low 4-bits
  4130.         OR    AX,AX
  4131.         MOV    AL,DL
  4132.         JNZ    LOC_RET_18AF
  4133.         JMP    LOC_17FD
  4134.  
  4135. ;==== External Entry into Subroutine ======================================
  4136. ;
  4137. ;         Output string    - 'BYTE PTR' or 'WORD PTR'
  4138.  
  4139. SUB_1897:
  4140.         MOV    SI,OFFSET MN_BYT_PT    ; (72B5:2109=42H)
  4141.         TEST    BYTE PTR OPCODE_BYT_286B,1    ; (72B5:286B=0)
  4142.         JZ    LOC_18A4
  4143.         MOV    SI,OFFSET MN_WORD_PT    ; (72B5:243F=57H)
  4144.  
  4145. ;==== External Entry into Subroutine ======================================
  4146. ;
  4147. ;         Output string    - ends with bit-7=1
  4148.  
  4149. WRT_STRING_18A4:
  4150. LOC_18A4:
  4151.         LODSB                ; String [si] to al
  4152.         MOV    AH,AL
  4153.         AND    AL,7FH            ; clear bit-7
  4154.         STOSB                ; Store al to es:[di]
  4155.         AND    AH,80H            ; clear all but bit-7
  4156.         JZ    LOC_18A4        ; jump if not end of string
  4157.  
  4158. LOC_RET_18AF:
  4159.         RETN
  4160.  
  4161. ;==== External Entry into Subroutine ======================================
  4162.  
  4163. SUB_18B0:
  4164. LOC_18B0:
  4165.         CMP    BYTE PTR MOD_FIELD_2844,3    ; (72B5:2844=0)
  4166.         JE    LOC_18BA
  4167.         CALL    SUB_1897
  4168. OP_1575        ENDP
  4169.  
  4170.  
  4171. ;==========================================================================
  4172. ;                   SUBROUTINE
  4173. ;==========================================================================
  4174.  
  4175. SUB_18BA    PROC    NEAR
  4176. LOC_18BA:
  4177.         MOV    AX,WORD PTR RM_FIELD_2843    ; (72B5:2843=0)
  4178.         CMP    AH,3
  4179.         JNE    LOC_18C5
  4180.         JMP    LOC_1554
  4181. LOC_18C5:
  4182.         MOV    DX,AX
  4183.         CMP    AX,6
  4184.         JNE    LOC_18CF
  4185.         JMP    LOC_141D
  4186. LOC_18CF:
  4187.         MOV    BL,AL
  4188.         MOV    BH,0
  4189.         SHL    BX,1            ; Shift w/zeros fill
  4190.         CMP    BYTE PTR DATA_24C3[BX],50H    ; (72B5:24C3=42H) 'P'
  4191.         JNE    LOC_18E1
  4192.         MOV    BYTE PTR OPJ_HI_BYT_2869,10H    ; (72B5:2869=0)
  4193. LOC_18E1:
  4194.         CALL    SUB_181D
  4195.         MOV    AL,5BH            ; '['
  4196.         STOSB                ; Store al to es:[di]
  4197.         MOV    AX,WORD PTR DATA_24C3[BX]    ; (72B5:24C3=5842H)
  4198.         STOSW                ; Store ax to es:[di]
  4199.         CMP    DL,4
  4200.         JAE    LOC_18FC
  4201.         MOV    AL,2BH            ; '+'
  4202.         STOSB                ; Store al to es:[di]
  4203.         AND    BL,2            ; clear all but bit-1
  4204.         MOV    AX,WORD PTR DATA_24CB[BX] ; 2-words indexed SI,DI
  4205.         STOSW                ; Store ax to es:[di]
  4206. LOC_18FC:
  4207.         OR    DH,DH
  4208.         JZ    LOC_1924
  4209.         DEC    DH
  4210.         JZ    LOC_190C
  4211.         MOV    AL,2BH            ; '+'
  4212.         STOSB                ; Store al to es:[di]
  4213.         CALL    SUB_141D
  4214.         JMP    SHORT LOC_1924
  4215. LOC_190C:
  4216.         CALL    RD_NXT_BYT_1B1B
  4217.         CBW                ; Convrt byte to word
  4218.         MOV    DX,AX
  4219.         MOV    AH,AL
  4220.         MOV    AL,2BH            ; '+'
  4221.         OR    AH,AH
  4222.         JNS    LOC_191E
  4223.         MOV    AL,2DH            ; '-'
  4224.         NEG    AH
  4225. LOC_191E:
  4226.         STOSB                ; Store al to es:[di]
  4227.         MOV    AL,AH
  4228.         CALL    SUB_1332
  4229. LOC_1924:
  4230.         MOV    AL,5DH            ; ']'
  4231.         STOSB                ; Store al to es:[di]
  4232.         JMP    LOC_165A
  4233. SUB_18BA    ENDP
  4234.  
  4235.  
  4236. ;==========================================================================
  4237. ;                   SUBROUTINE
  4238. ;==========================================================================
  4239.  
  4240. SUB_192A    PROC    NEAR
  4241.  
  4242.                         ; D20AH is opcode OR DL,DL
  4243. ;**CHANGED**    MOV    WORD PTR DS:ALTR_OPW_1965+0,0D20AH    ; (72B5:1965=0CAFEH)
  4244.         MOV    BYTE PTR OLD_DEC_1965,0    ;for OR DL,DL (no decrement)
  4245.         JMP    SHORT LOC_1938
  4246.  
  4247. ;==== External Entry into Subroutine ======================================
  4248.  
  4249. SUB_1932:
  4250.  
  4251.                         ; CAFEH is opcode DEC DL
  4252. ;**CHANGED**    MOV    WORD PTR DS:ALTR_OPW_1965+0,0CAFEH    ; (72B5:1965=0CAFEH)
  4253.         MOV    BYTE PTR OLD_DEC_1965,1    ;for DEC DL
  4254.  
  4255. LOC_1938:
  4256.         TEST    BYTE PTR DATA_2856,0FFH    ; (=0)
  4257.         JNZ    LOC_1970
  4258.         CALL    SUB_132F
  4259.         MOV    AX,DATA_2919        ; (=0) (store AL only)
  4260.         MOV    BYTE PTR DATA_2919+1,0    ; (=0) (zero AH value)
  4261.         OR    AH,AH
  4262.         JNZ    LOC_1950
  4263.         DEC    AH
  4264. LOC_1950:
  4265.         AND    DL,AH
  4266. LOC_1952:
  4267.         SHR    AH,1            ; Shift w/zeros fill
  4268.         JC    LOC_195A
  4269.         SHR    DL,1            ; Shift w/zeros fill
  4270.         JMP    SHORT LOC_1952
  4271. LOC_195A:
  4272.         OR    DL,DL
  4273.         JNZ    ALTR_OPW_1965
  4274.  
  4275. LOC_195E:                    ; 6AH s/b MN_DB-MN_AAA
  4276. ;**CHANGED**    MOV    OPW_TBL_WD_285F,6AH    ; (72B5:285F=0)
  4277.         MOV    OPW_TBL_WD_285F,MN_DB-MN_AAA
  4278.         RETN
  4279.  
  4280. ALTR_OPW_1965:                    ; Altered op-code - 'DEC DL' or
  4281.                         ;  'OR DL,DL'
  4282. ;**CHANGED**    DEC    DL
  4283.         SUB    DL,OLD_DEC_1965        ;conditional decrement, test 0
  4284.  
  4285.         MOV    DATA_2856,DL        ; (=0)
  4286.         JZ    LOC_195E
  4287.         MOV    AL,2CH            ; ','
  4288.         STOSB                ; Store al to es:[di]
  4289. SUB_192A    ENDP
  4290.  
  4291.  
  4292. ;==========================================================================
  4293. ;                   SUBROUTINE
  4294. ;==========================================================================
  4295.  
  4296. SUB_1970    PROC    NEAR
  4297. LOC_1970:
  4298.         XOR    CX,CX
  4299.  
  4300.                         ; 6AH s/b MN_DB-MN_AAA
  4301. ;**CHANGED**    MOV    OPW_TBL_WD_285F,6AH    ; (72B5:285F=0)
  4302.         MOV    OPW_TBL_WD_285F,MN_DB-MN_AAA
  4303. LOC_1978:
  4304.         CALL    RD_NXT_BYT_1B1B
  4305.         MOV    DL,AL
  4306.         TEST    BYTE PTR DATA_2846,0FFH    ; (=0)
  4307.         PUSHF
  4308.         CMP    AL,2CH            ; ','
  4309.         JE    LOC_19AD
  4310.         CMP    AL,27H            ; '''
  4311.         JE    LOC_19AD
  4312.         CMP    AL,22H            ; '"'
  4313.         JE    LOC_19AD
  4314.         CALL    SUB_1A7D
  4315.         JNC    LOC_19AD
  4316.         POPF
  4317.         JNZ    LOC_199D
  4318.         MOV    AL,27H            ; '''
  4319.         STOSB                ; Store al to es:[di]
  4320.         MOV    DATA_2846,AL        ; (=0)
  4321. LOC_199D:
  4322.         MOV    AL,DL
  4323.         STOSB                ; Store al to es:[di]
  4324.         INC    CX
  4325.         CMP    AL,24H            ; '$'
  4326.         JNE    LOC_19E5
  4327. LOC_19A5:
  4328.         CALL    SUB_19F1
  4329.         JC    LOC_RET_19ED
  4330.         JMP    LOC_1A68
  4331. LOC_19AD:
  4332.         POPF
  4333.         JZ    LOC_19B9
  4334.         MOV    AX,2C27H        ; "'," single quote, comma
  4335.         STOSW                ; Store ax to es:[di]
  4336.         MOV    BYTE PTR DATA_2846,0    ; (=0)
  4337. LOC_19B9:
  4338.         CMP    DL,0DH            ; CR
  4339.         JNE    LOC_19C3
  4340.         MOV    AX,5243H        ; 'CR'
  4341.         JMP    SHORT LOC_19CB
  4342. LOC_19C3:
  4343.         CMP    DL,0AH            ; LF
  4344.         JNE    LOC_19CE
  4345.         MOV    AX,464CH        ; 'LF'
  4346. LOC_19CB:
  4347.         STOSW                ; Store ax to es:[di]
  4348.         JMP    SHORT LOC_19D5
  4349. LOC_19CE:
  4350.         MOV    AL,DL
  4351.         PUSH    CX
  4352.         CALL    SUB_1332
  4353.         POP    CX
  4354. LOC_19D5:
  4355.         MOV    AL,2CH            ; ','
  4356.         STOSB                ; Store al to es:[di]
  4357.         CMP    DL,0AH
  4358.         JE    LOC_19A5
  4359.         TEST    DL,80H
  4360.         JNZ    LOC_19A5
  4361.         ADD    CX,4
  4362. LOC_19E5:
  4363.         CMP    CX,35H            ; 53 decimal
  4364.         CALL    SUB_19F1
  4365.         JNC    LOC_1978
  4366.  
  4367. LOC_RET_19ED:
  4368.         RETN
  4369.  
  4370. ;==== External Entry into Subroutine ======================================
  4371.  
  4372. SUB_19EE:
  4373.         CMP    CX,16H            ; 22 decimal
  4374.  
  4375. ;==== External Entry into Subroutine ======================================
  4376.  
  4377. SUB_19F1:
  4378.         PUSH    BX
  4379.         PUSHF
  4380.         TEST    BYTE PTR DATA_2856,0FFH    ; (=0)
  4381.         JZ    LOC_1A0D
  4382.         DEC    DATA_2856        ; (=0)
  4383.         JNZ    LOC_1A1A
  4384.         TEST    BYTE PTR DATA_291B,0FFH    ; (=0)
  4385.         JZ    LOC_1A5D
  4386.         DEC    DATA_2919        ; (=0)
  4387.         JMP    SHORT LOC_1A5D
  4388. LOC_1A0D:
  4389.         TEST    BYTE PTR DATA_291B,0FFH    ; (=0)
  4390.         JZ    LOC_1A1A
  4391.         DEC    DATA_2919        ; (=0)
  4392.         JZ    LOC_1A5D
  4393. LOC_1A1A:
  4394.         TEST    DATA_284D,0FFFFH    ; (72B5:284D=0)
  4395.         JZ    LOC_1A5D
  4396.         MOV    AX,DATA_2889        ; (=0)
  4397.         CMP    AX,DATA_288F        ; (=0)
  4398.         MOV    AX,DATA_2858        ; (=0)
  4399.         JNC    LOC_1A34
  4400.         CMP    DATA_2885,AX        ; (=0)
  4401.         JBE    LOC_1A5D
  4402. LOC_1A34:
  4403.         CMP    BYTE PTR DATA_2861,1    ; (=0)
  4404.         JE    LOC_1A47
  4405.         TEST    BYTE PTR DATA_2888,0FFH    ; (=0)
  4406.         JZ    LOC_1A47
  4407.         CMP    AX,[BP+1]
  4408.         JAE    LOC_1A5D
  4409. LOC_1A47:
  4410.         MOV    BX,DATA_288D        ; (=0)
  4411.         CMP    BX,DATA_2893        ; (=0)
  4412.         JAE    LOC_1A55
  4413.         CMP    AX,[BX]
  4414.         JAE    LOC_1A5D
  4415. LOC_1A55:
  4416.         POPF
  4417.         JNC    LOC_1A5E
  4418.         CLC                ; Clear carry flag
  4419.         POP    BX
  4420.         RETN
  4421. CALL_INDR_1A5B    DW    0            ; Indirect CALL offset
  4422. LOC_1A5D:
  4423.         POPF
  4424. LOC_1A5E:
  4425.         POP    BX
  4426.         POP    CALL_INDR_1A5B        ; (72B5:1A5B=0)
  4427.         STC                ; Set carry flag
  4428.         CALL    CALL_INDR_1A5B        ; (72B5:1A5B=0)
  4429. LOC_1A68:
  4430.         CMP    BYTE PTR [DI-1],2CH    ; ','
  4431.         JNE    LOC_1A72
  4432.         DEC    DI
  4433.         MOV    BYTE PTR [DI],0
  4434. LOC_1A72:
  4435.         TEST    BYTE PTR DATA_2846,0FFH    ; (=0)
  4436.         JZ    LOC_RET_1A7C
  4437.         MOV    AL,27H            ; '''
  4438.         STOSB                ; Store al to es:[di]
  4439.  
  4440. LOC_RET_1A7C:
  4441.         RETN
  4442. SUB_1970    ENDP
  4443.  
  4444.  
  4445. ;==========================================================================
  4446. ;                   SUBROUTINE
  4447. ;==========================================================================
  4448.  
  4449. SUB_1A7D    PROC    NEAR
  4450.         CMP    AL,20H            ; ' '
  4451.         CMC                ; Complement carry
  4452.         JNC    LOC_RET_1A84
  4453.         CMP    AL,7BH            ; '{'
  4454.  
  4455. LOC_RET_1A84:
  4456.         RETN
  4457. SUB_1A7D    ENDP
  4458.  
  4459.  
  4460. ;==========================================================================
  4461. ;                   SUBROUTINE
  4462. ;==========================================================================
  4463.  
  4464. SUB_1A85    PROC    NEAR
  4465.  
  4466.                         ; 7EH s/b MN_DW-MN_AAA
  4467. ;**CHANGED**    MOV    AX,7EH
  4468.         MOV    AX,MN_DW-MN_AAA
  4469.         CMP    BYTE PTR DATA_2887,1    ; (=0)
  4470.         JNE    LOC_1A92
  4471.  
  4472.                         ; 6AH s/b MN_DB-MN_AAA
  4473. ;**CHANGED**    MOV    AX,6AH
  4474.         MOV    AX,MN_DB-MN_AAA
  4475. LOC_1A92:
  4476.         MOV    OPW_TBL_WD_285F,AX    ; (72B5:285F=0)
  4477.         XOR    BX,BX
  4478.         MOV    CX,BX
  4479.         CALL    SUB_1AFC
  4480. LOC_1A9C:
  4481. ;**CHANGED**    MOV    DS:ALTR_W_1AC9+1,AX    ; (72B5:1ACA=0)
  4482.         MOV    DS:OLD_W_1ACA,AX    ; (72B5:1ACA=0)
  4483.         CALL    SUB_19EE
  4484.         JC    LOC_1AC5
  4485. LOC_1AA4:
  4486.         CALL    SUB_1AFC
  4487. ;**CHANGED**    CMP    AX,DS:ALTR_W_1AC9+1    ; (72B5:1ACA=0)
  4488.         CMP    AX,DS:OLD_W_1ACA    ; (72B5:1ACA=0)
  4489.         JNE    LOC_1AB5
  4490.         INC    BX
  4491.         CALL    SUB_19EE
  4492.         JC    LOC_1AE0
  4493.         JMP    SHORT LOC_1AA4
  4494. LOC_1AB5:
  4495.         PUSH    AX
  4496.         OR    BX,BX
  4497.         JZ    LOC_1ABF
  4498.         CALL    SUB_1AE0
  4499.         JMP    SHORT LOC_1AC2
  4500. LOC_1ABF:
  4501.         CALL    SUB_1AC5
  4502. LOC_1AC2:
  4503.         POP    AX
  4504.         JMP    SHORT LOC_1A9C
  4505.  
  4506. ;==== External Entry into Subroutine ======================================
  4507.  
  4508. SUB_1AC5:
  4509. LOC_1AC5:
  4510.         ADD    CX,6
  4511.         PUSH    CX
  4512.  
  4513. ALTR_W_1AC9:                    ; Altered code
  4514. ;**CHANGED**    MOV    DX,0
  4515.         MOV    DX,OLD_W_1ACA
  4516.         CMP    BYTE PTR DATA_2887,1    ; (=0)
  4517.         JNE    LOC_1AD8
  4518.         CALL    SUB_1342
  4519.         JMP    SHORT LOC_1ADB
  4520. LOC_1AD8:
  4521.         CALL    SUB_1447
  4522. LOC_1ADB:
  4523.         MOV    AL,2CH            ; ','
  4524.         STOSB                ; Store al to es:[di]
  4525.         POP    CX
  4526.         RETN
  4527. SUB_1A85    ENDP
  4528.  
  4529.  
  4530. ;==========================================================================
  4531. ;                   SUBROUTINE
  4532. ;==========================================================================
  4533.  
  4534. SUB_1AE0    PROC    NEAR
  4535. LOC_1AE0:
  4536.         ADD    CX,0AH
  4537.         PUSH    CX
  4538.         INC    BX
  4539.         XCHG    DX,BX
  4540.         CALL    SUB_1345
  4541.         MOV    SI,OFFSET DATA_216D_DUP    ; (72B5:216D=20H)
  4542.         CALL    WRT_STRING_18A4
  4543.         POP    CX
  4544.         CALL    SUB_1AC5
  4545.         DEC    DI
  4546.         MOV    AX,2C29H        ; '),' close paren, comma
  4547.         STOSW                ; Store ax to es:[di]
  4548.         XOR    BX,BX
  4549.         RETN
  4550. SUB_1AE0    ENDP
  4551.  
  4552.  
  4553. ;==========================================================================
  4554. ;                   SUBROUTINE
  4555. ;==========================================================================
  4556.  
  4557. SUB_1AFC    PROC    NEAR
  4558.         CALL    RD_NXT_BYT_1B1B
  4559.         MOV    AH,AL
  4560.         MOV    AL,0
  4561.         CMP    BYTE PTR DATA_2887,1    ; (=0)
  4562.         JE    LOC_1B0D
  4563.         CALL    RD_NXT_BYT_1B1B
  4564. LOC_1B0D:
  4565.         XCHG    AH,AL
  4566.         RETN
  4567. SUB_1AFC    ENDP
  4568.  
  4569.  
  4570. ;==========================================================================
  4571. ;                   SUBROUTINE
  4572. ;==========================================================================
  4573.  
  4574. SUB_1B10    PROC    NEAR
  4575.         CALL    RD_NXT_BYT_1B1B
  4576.         MOV    DL,AL
  4577.         CALL    RD_NXT_BYT_1B1B
  4578.         MOV    DH,AL
  4579.         RETN
  4580. SUB_1B10    ENDP
  4581.  
  4582.  
  4583. ;==========================================================================
  4584. ;         Read next byte from input file
  4585. ;==========================================================================
  4586.  
  4587. RD_NXT_BYT_1B1B    PROC    NEAR
  4588.         PUSH    SI
  4589.         MOV    AL,0
  4590.         TEST    DATA_284D,0FFFFH    ; (72B5:284D=0)
  4591.         JZ    LOC_1B57
  4592.         MOV    SI,DATA_287F        ; (=0)
  4593.         CMP    SI,OFFSET DTA4_2C9E    ; (72B5:2C9E=0)
  4594.         JB    LOC_1B4E
  4595.         PUSH    AX
  4596.         PUSH    DX
  4597.         MOV    DX,OFFSET DTA3_2A9E    ; 
  4598.         MOV    AH,1AH
  4599.         INT    21H            ; DOS Services  ah=function 1Ah
  4600.                         ;  set DTA to ds:dx
  4601.         XCHG    DX,SI
  4602.         MOV    DX,OFFSET FCB3_2A0F    ; (72B5:2A0F=61H)
  4603.         MOV    AH,14H
  4604.         INT    21H            ; DOS Services  ah=function 14h
  4605.                         ;  sequentl file read FCB @ds:dx
  4606.         CMP    AL,1
  4607.         JNE    LOC_1B4C
  4608.         MOV    DATA_284D,0        ; (72B5:284D=0)
  4609. LOC_1B4C:
  4610.         POP    DX
  4611.         POP    AX
  4612. LOC_1B4E:
  4613.         LODSB                ; String [si] to al
  4614.         MOV    DATA_287F,SI        ; (=0)
  4615.         DEC    DATA_284D        ; (72B5:284D=0)
  4616. LOC_1B57:
  4617.         INC    DATA_2854        ; (=0)
  4618.         INC    DATA_2858        ; (=0)
  4619.         MOV    SI,DATA_2854        ; (=0)
  4620.         CMP    SI,18H
  4621.         JA    LOC_1B6E
  4622.         ADD    SI,OFFSET DATA_282A    ; (=0)
  4623.         MOV    [SI],AL
  4624. LOC_1B6E:
  4625.         POP    SI
  4626.         RETN
  4627. RD_NXT_BYT_1B1B    ENDP
  4628.  
  4629.  
  4630. ;==========================================================================
  4631. ;                   SUBROUTINE
  4632. ;==========================================================================
  4633.  
  4634. SUB_1B70    PROC    NEAR
  4635.         MOV    SI,DATA_2E9E_E        ; (=0)
  4636. LOC_1B73:
  4637.         CMP    SI,DATA_288F        ; (=0)
  4638.         JA    LOC_1B95
  4639.         CMP    DX,[SI]
  4640.         PUSHF
  4641.         LODSW                ; String [si] to ax
  4642.         LODSB                ; String [si] to al
  4643.         LODSB                ; String [si] to al
  4644.         AND    AL,7FH            ; clear bit-7
  4645.         MOV    AH,0
  4646.         ADD    SI,AX
  4647.         POPF
  4648.         JC    LOC_1B95
  4649.         JNZ    LOC_1B73
  4650.         OR    AX,AX
  4651.         JZ    LOC_1B73
  4652.         SUB    SI,AX
  4653.         CMP    BYTE PTR [SI],0AEH
  4654.         CLC                ; Clear carry flag
  4655.         RETN
  4656. LOC_1B95:
  4657.         STC                ; Set carry flag
  4658.         RETN
  4659. SUB_1B70    ENDP
  4660.  
  4661. ;==========================================================================
  4662.         DB    10,'Table '
  4663. DATA_1BA9    DW    OFFSET SUB_1277        ; Data table (indexed access)
  4664.         DW    OFFSET SUB_1A85
  4665.         DW    OFFSET SUB_1A85
  4666.         DW    OFFSET SUB_1970
  4667.         DW    OFFSET SUB_1932
  4668.         DW    OFFSET SUB_192A
  4669.         DW    OFFSET SUB_1277
  4670.         DW    OFFSET SUB_1277
  4671.         DW    OFFSET SUB_1277
  4672.         DB    5 DUP (0)        ;(apparent padding)
  4673.  
  4674.         DB    10,'Op-code Dispatch, 2-words/entry, all 12-bit differences plus high 4-bits'
  4675.         DB    10,'1st word difference from "Mnemonic", 2nd word difference from "Op-codes"'
  4676.         DB    10,'except, use labels for 1st word of op-codes: 80-83,D0-D3,D8-DF,F6,F7,FE,FF',10
  4677.  
  4678. OPW_00_ADD    DW    MN_ADD-MN_AAA+04000H    ;00 ADD
  4679. OPJ_00        DW    OP_1548-OP_1250        ;
  4680. OPW_01_ADD    DW    MN_ADD-MN_AAA+04000H    ;01 ADD
  4681. OPJ_01        DW    OP_1548-OP_1250        ;
  4682. OPW_02_ADD    DW    MN_ADD-MN_AAA+01000H    ;02 ADD
  4683. OPJ_02        DW    OP_15AE-OP_1250        ;
  4684. OPW_03_ADD    DW    MN_ADD-MN_AAA+01000H    ;03 ADD
  4685. OPJ_03        DW    OP_15AE-OP_1250        ;
  4686. OPW_04_ADD    DW    MN_ADD-MN_AAA        ;04 ADD
  4687. OPJ_04        DW    OP_131D-OP_1250        ;
  4688. OPW_05_ADD    DW    MN_ADD-MN_AAA        ;05 ADD
  4689. OPJ_05        DW    OP_131D-OP_1250        ;
  4690. OPW_06_PUSH_ES    DW    MN_PUSH-MN_AAA        ;06 PUSH ES
  4691. OPJ_06        DW    OP_156A-OP_1250        ;
  4692. OPW_07_POP_ES    DW    MN_POP-MN_AAA        ;07 POP ES
  4693. OPJ_07        DW    OP_156A-OP_1250        ;
  4694. OPW_08_OR    DW    MN_OR-MN_AAA+04000H    ;08 OR
  4695. OPJ_08        DW    OP_1548-OP_1250        ;
  4696. OPW_09_OR    DW    MN_OR-MN_AAA+04000H    ;09 OR
  4697. OPJ_09        DW    OP_1548-OP_1250        ;
  4698. OPW_0A_OR    DW    MN_OR-MN_AAA+01000H    ;0A OR
  4699. OPJ_0A        DW    OP_15AE-OP_1250        ;
  4700. OPW_0B_OR    DW    MN_OR-MN_AAA+01000H    ;0B OR
  4701. OPJ_0B        DW    OP_15AE-OP_1250        ;
  4702. OPW_0C_OR    DW    MN_OR-MN_AAA        ;0C OR
  4703. OPJ_0C        DW    OP_131D-OP_1250        ;
  4704. OPW_0D_OR    DW    MN_OR-MN_AAA        ;0D OR
  4705. OPJ_0D        DW    OP_131D-OP_1250        ;
  4706. OPW_0E_PUSH_CS    DW    MN_PUSH-MN_AAA        ;0E PUSH CS
  4707. OPJ_0E        DW    OP_156A-OP_1250        ;
  4708. OPW_0F_???    DW    0000H            ;0F ???
  4709. OPJ_0F        DW    OP_17D1-OP_1250        ;
  4710. OPW_10_ADC    DW    MN_ADC-MN_AAA+04000H    ;10 ADC
  4711. OPJ_10        DW    OP_1548-OP_1250        ;
  4712. OPW_11_ADC    DW    MN_ADC-MN_AAA+04000H    ;11 ADC
  4713. OPJ_11        DW    OP_1548-OP_1250        ;
  4714. OPW_12_ADC    DW    MN_ADC-MN_AAA+01000H    ;12 ADC
  4715. OPJ_12        DW    OP_15AE-OP_1250        ;
  4716. OPW_13_ADC    DW    MN_ADC-MN_AAA+01000H    ;13 ADC
  4717. OPJ_13        DW    OP_15AE-OP_1250        ;
  4718. OPW_14_ADC    DW    MN_ADC-MN_AAA        ;14 ADC
  4719. OPJ_14        DW    OP_131D-OP_1250        ;
  4720. OPW_15_ADC    DW    MN_ADC-MN_AAA        ;15 ADC
  4721. OPJ_15        DW    OP_131D-OP_1250        ;
  4722. OPW_16_PUSH_ES    DW    MN_PUSH-MN_AAA        ;16 PUSH ES
  4723. OPJ_16        DW    OP_156A-OP_1250        ;
  4724. OPW_17_POP_ES    DW    MN_POP-MN_AAA        ;17 POP ES
  4725. OPJ_17        DW    OP_156A-OP_1250        ;
  4726. OPW_18_SBB    DW    MN_SBB-MN_AAA+04000H    ;18 SBB
  4727. OPJ_18        DW    OP_1548-OP_1250        ;
  4728. OPW_19_SBB    DW    MN_SBB-MN_AAA+04000H    ;19 SBB
  4729. OPJ_19        DW    OP_1548-OP_1250        ;
  4730. OPW_1A_SBB    DW    MN_SBB-MN_AAA+01000H    ;1A SBB
  4731. OPJ_1A        DW    OP_15AE-OP_1250        ;
  4732. OPW_1B_SBB    DW    MN_SBB-MN_AAA+01000H    ;1B SBB
  4733. OPJ_1B        DW    OP_15AE-OP_1250        ;
  4734. OPW_1C_SBB    DW    MN_SBB-MN_AAA        ;1C SBB
  4735. OPJ_1C        DW    OP_131D-OP_1250        ;
  4736. OPW_1D_SBB    DW    MN_SBB-MN_AAA        ;1D SBB
  4737. OPJ_1D        DW    OP_131D-OP_1250        ;
  4738. OPW_1E_PUSH_DS    DW    MN_PUSH-MN_AAA        ;1E PUSH DS
  4739. OPJ_1E        DW    OP_156A-OP_1250        ;
  4740. OPW_1F_POP_DS    DW    MN_POP-MN_AAA        ;1F POP DS
  4741. OPJ_1F        DW    OP_156A-OP_1250        ;
  4742. OPW_20_AND    DW    MN_AND-MN_AAA+04000H    ;20 AND
  4743. OPJ_20        DW    OP_1548-OP_1250        ;
  4744. OPW_21_AND    DW    MN_AND-MN_AAA+04000H    ;21 AND
  4745. OPJ_21        DW    OP_1548-OP_1250        ;
  4746. OPW_22_AND    DW    MN_AND-MN_AAA+01000H    ;22 AND
  4747. OPJ_22        DW    OP_15AE-OP_1250        ;
  4748. OPW_23_AND    DW    MN_AND-MN_AAA+01000H    ;23 AND
  4749. OPJ_23        DW    OP_15AE-OP_1250        ;
  4750. OPW_24_AND    DW    MN_AND-MN_AAA        ;24 AND
  4751. OPJ_24        DW    OP_131D-OP_1250        ;
  4752. OPW_25_AND    DW    MN_AND-MN_AAA        ;25 AND
  4753. OPJ_25        DW    OP_131D-OP_1250        ;
  4754. OPW_26_ES_COLON    DW    MN_AAA-MN_AAA        ;26 ES:
  4755. OPJ_26        DW    OP_1250-OP_1250        ;
  4756. OPW_27_DAA    DW    MN_DAA-MN_AAA        ;27 DAA
  4757. OPJ_27        DW    OP_17CA-OP_1250        ;
  4758. OPW_28_SUB    DW    MN_SUB-MN_AAA+04000H    ;28 SUB
  4759. OPJ_28        DW    OP_1548-OP_1250        ;
  4760. OPW_29_SUB    DW    MN_SUB-MN_AAA+04000H    ;29 SUB
  4761. OPJ_29        DW    OP_1548-OP_1250        ;
  4762. OPW_2A_SUB    DW    MN_SUB-MN_AAA+01000H    ;2A SUB
  4763. OPJ_2A        DW    OP_15AE-OP_1250        ;
  4764. OPW_2B_SUB    DW    MN_SUB-MN_AAA+01000H    ;2B SUB
  4765. OPJ_2B        DW    OP_15AE-OP_1250        ;
  4766. OPW_2C_SUB    DW    MN_SUB-MN_AAA        ;2C SUB
  4767. OPJ_2C        DW    OP_131D-OP_1250        ;
  4768. OPW_2D_SUB    DW    MN_SUB-MN_AAA        ;2D SUB
  4769. OPJ_2D        DW    OP_131D-OP_1250        ;
  4770. OPW_2E_CS_COLON    DW    MN_AAA-MN_AAA        ;2E CS:
  4771. OPJ_2E        DW    OP_1250-OP_1250        ;
  4772. OPW_2F_DAS    DW    MN_DAS-MN_AAA        ;2F DAS
  4773. OPJ_2F        DW    OP_17CA-OP_1250        ;
  4774. OPW_30_XOR    DW    MN_XOR-MN_AAA+04000H    ;30 XOR
  4775. OPJ_30        DW    OP_1548-OP_1250        ;
  4776. OPW_31_XOR    DW    MN_XOR-MN_AAA+04000H    ;31 XOR
  4777. OPJ_31        DW    OP_1548-OP_1250        ;
  4778. OPW_32_XOR    DW    MN_XOR-MN_AAA+01000H    ;32 XOR
  4779. OPJ_32        DW    OP_15AE-OP_1250        ;
  4780. OPW_33_XOR    DW    MN_XOR-MN_AAA+01000H    ;33 XOR
  4781. OPJ_33        DW    OP_15AE-OP_1250        ;
  4782. OPW_34_XOR    DW    MN_XOR-MN_AAA        ;34 XOR
  4783. OPJ_34        DW    OP_131D-OP_1250        ;
  4784. OPW_35_XOR    DW    MN_XOR-MN_AAA        ;35 XOR
  4785. OPJ_35        DW    OP_131D-OP_1250        ;
  4786. OPW_36_SS_COLON    DW    MN_AAA-MN_AAA        ;36 SS:
  4787. OPJ_36        DW    OP_1250-OP_1250        ;
  4788. OPW_37_AAA    DW    MN_AAA-MN_AAA        ;37 AAA
  4789. OPJ_37        DW    OP_17CA-OP_1250        ;
  4790. OPW_38_CMP    DW    MN_CMP-MN_AAA+02000H    ;38 CMP
  4791. OPJ_38        DW    OP_1548-OP_1250        ;
  4792. OPW_39_CMP    DW    MN_CMP-MN_AAA+02000H    ;39 CMP
  4793. OPJ_39        DW    OP_1548-OP_1250        ;
  4794. OPW_3A_CMP    DW    MN_CMP-MN_AAA+02000H    ;3A CMP
  4795. OPJ_3A        DW    OP_15AE-OP_1250        ;
  4796. OPW_3B_CMP    DW    MN_CMP-MN_AAA+02000H    ;3B CMP
  4797. OPJ_3B        DW    OP_15AE-OP_1250        ;
  4798. OPW_3C_CMP    DW    MN_CMP-MN_AAA        ;3C CMP
  4799. OPJ_3C        DW    OP_131D-OP_1250        ;
  4800. OPW_3D_CMP    DW    MN_CMP-MN_AAA        ;3D CMP
  4801. OPJ_3D        DW    OP_131D-OP_1250        ;
  4802. OPW_3E_DS_COLON    DW    MN_AAA-MN_AAA        ;3E DS:
  4803. OPJ_3E        DW    OP_1250-OP_1250        ;
  4804. OPW_3F_AAS    DW    MN_AAS-MN_AAA        ;3F AAS
  4805. OPJ_3F        DW    OP_17CA-OP_1250        ;
  4806. OPW_40_INC_AX    DW    MN_INC-MN_AAA        ;40 INC AX
  4807. OPJ_40        DW    OP_155E-OP_1250        ;
  4808. OPW_41_INC_CX    DW    MN_INC-MN_AAA        ;41 INC CX
  4809. OPJ_41        DW    OP_155E-OP_1250        ;
  4810. OPW_42_INC_DX    DW    MN_INC-MN_AAA        ;42 INC DX
  4811. OPJ_42        DW    OP_155E-OP_1250        ;
  4812. OPW_43_INC_BX    DW    MN_INC-MN_AAA        ;43 INC BX
  4813. OPJ_43        DW    OP_155E-OP_1250        ;
  4814. OPW_44_INC_SP    DW    MN_INC-MN_AAA        ;44 INC SP
  4815. OPJ_44        DW    OP_155E-OP_1250        ;
  4816. OPW_45_INC_BP    DW    MN_INC-MN_AAA        ;45 INC BP
  4817. OPJ_45        DW    OP_155E-OP_1250        ;
  4818. OPW_46_INC_SI    DW    MN_INC-MN_AAA        ;46 INC SI
  4819. OPJ_46        DW    OP_155E-OP_1250        ;
  4820. OPW_47_INC_DI    DW    MN_INC-MN_AAA        ;47 INC DI
  4821. OPJ_47        DW    OP_155E-OP_1250        ;
  4822. OPW_48_DEC_AX    DW    MN_DEC-MN_AAA        ;48 DEC AX
  4823. OPJ_48        DW    OP_155E-OP_1250        ;
  4824. OPW_49_DEC_CX    DW    MN_DEC-MN_AAA        ;49 DEC CX
  4825. OPJ_49        DW    OP_155E-OP_1250        ;
  4826. OPW_4A_DEC_DX    DW    MN_DEC-MN_AAA        ;4A DEC DX
  4827. OPJ_4A        DW    OP_155E-OP_1250        ;
  4828. OPW_4B_DEC_BX    DW    MN_DEC-MN_AAA        ;4B DEC BX
  4829. OPJ_4B        DW    OP_155E-OP_1250        ;
  4830. OPW_4C_DEC_SP    DW    MN_DEC-MN_AAA        ;4C DEC SP
  4831. OPJ_4C        DW    OP_155E-OP_1250        ;
  4832. OPW_4D_DEC_BP    DW    MN_DEC-MN_AAA        ;4D DEC BP
  4833. OPJ_4D        DW    OP_155E-OP_1250        ;
  4834. OPW_4E_DEC_SI    DW    MN_DEC-MN_AAA        ;4E DEC SI
  4835. OPJ_4E        DW    OP_155E-OP_1250        ;
  4836. OPW_4F_DEC_DI    DW    MN_DEC-MN_AAA        ;4F DEC DI
  4837. OPJ_4F        DW    OP_155E-OP_1250        ;
  4838. OPW_50_PUSH_AX    DW    MN_PUSH-MN_AAA        ;50 PUSH AX
  4839. OPJ_50        DW    OP_155E-OP_1250        ;
  4840. OPW_51_PUSH_CX    DW    MN_PUSH-MN_AAA        ;51 PUSH CX
  4841. OPJ_51        DW    OP_155E-OP_1250        ;
  4842. OPW_52_PUSH_DX    DW    MN_PUSH-MN_AAA        ;52 PUSH DX
  4843. OPJ_52        DW    OP_155E-OP_1250        ;
  4844. OPW_53_PUSH_BX    DW    MN_PUSH-MN_AAA        ;53 PUSH BX
  4845. OPJ_53        DW    OP_155E-OP_1250        ;
  4846. OPW_54_PUSH_SP    DW    MN_PUSH-MN_AAA        ;54 PUSH SP
  4847. OPJ_54        DW    OP_155E-OP_1250        ;
  4848. OPW_55_PUSH_BP    DW    MN_PUSH-MN_AAA        ;55 PUSH BP
  4849. OPJ_55        DW    OP_155E-OP_1250        ;
  4850. OPW_56_PUSH_SI    DW    MN_PUSH-MN_AAA        ;56 PUSH SI
  4851. OPJ_56        DW    OP_155E-OP_1250        ;
  4852. OPW_57_PUSH_DI    DW    MN_PUSH-MN_AAA        ;57 PUSH DI
  4853. OPJ_57        DW    OP_155E-OP_1250        ;
  4854. OPW_58_POP_AX    DW    MN_POP-MN_AAA        ;58 POP AX
  4855. OPJ_58        DW    OP_155E-OP_1250        ;
  4856. OPW_59_POP_CX    DW    MN_POP-MN_AAA        ;59 POP CX
  4857. OPJ_59        DW    OP_155E-OP_1250        ;
  4858. OPW_5A_POP_DX    DW    MN_POP-MN_AAA        ;5A POP DX
  4859. OPJ_5A        DW    OP_155E-OP_1250        ;
  4860. OPW_5B_POP_BX    DW    MN_POP-MN_AAA        ;5B POP BX
  4861. OPJ_5B        DW    OP_155E-OP_1250        ;
  4862. OPW_5C_POP_SP    DW    MN_POP-MN_AAA        ;5C POP SP
  4863. OPJ_5C        DW    OP_155E-OP_1250        ;
  4864. OPW_5D_POP_BP    DW    MN_POP-MN_AAA        ;5D POP BP
  4865. OPJ_5D        DW    OP_155E-OP_1250        ;
  4866. OPW_5E_POP_SI    DW    MN_POP-MN_AAA        ;5E POP SI
  4867. OPJ_5E        DW    OP_155E-OP_1250        ;
  4868. OPW_5F_POP_DI    DW    MN_POP-MN_AAA        ;5F POP DI
  4869. OPJ_5F        DW    OP_155E-OP_1250        ;
  4870. OPW_60_???    DW    0000H            ;60 ???
  4871. OPJ_60        DW    OP_17D1-OP_1250        ;
  4872. OPW_61_???    DW    0000H            ;61 ???
  4873. OPJ_61        DW    OP_17D1-OP_1250        ;
  4874. OPW_62_???    DW    0000H            ;62 ???
  4875. OPJ_62        DW    OP_17D1-OP_1250        ;
  4876. OPW_63_???    DW    0000H            ;63 ???
  4877. OPJ_63        DW    OP_17D1-OP_1250        ;
  4878. OPW_64_???    DW    0000H            ;64 ???
  4879. OPJ_64        DW    OP_17D1-OP_1250        ;
  4880. OPW_65_???    DW    0000H            ;65 ???
  4881. OPJ_65        DW    OP_17D1-OP_1250        ;
  4882. OPW_66_???    DW    0000H            ;66 ???
  4883. OPJ_66        DW    OP_17D1-OP_1250        ;
  4884. OPW_67_???    DW    0000H            ;67 ???
  4885. OPJ_67        DW    OP_17D1-OP_1250        ;
  4886. OPW_68_???    DW    0000H            ;68 ???
  4887. OPJ_68        DW    OP_17D1-OP_1250        ;
  4888. OPW_69_???    DW    0000H            ;69 ???
  4889. OPJ_69        DW    OP_17D1-OP_1250        ;
  4890. OPW_6A_???    DW    0000H            ;6A ???
  4891. OPJ_6A        DW    OP_17D1-OP_1250        ;
  4892. OPW_6B_???    DW    0000H            ;6B ???
  4893. OPJ_6B        DW    OP_17D1-OP_1250        ;
  4894. OPW_6C_???    DW    0000H            ;6C ???
  4895. OPJ_6C        DW    OP_17D1-OP_1250        ;
  4896. OPW_6D_???    DW    0000H            ;6D ???
  4897. OPJ_6D        DW    OP_17D1-OP_1250        ;
  4898. OPW_6E_???    DW    0000H            ;6E ???
  4899. OPJ_6E        DW    OP_17D1-OP_1250        ;
  4900. OPW_6F_???    DW    0000H            ;6F ???
  4901. OPJ_6F        DW    OP_17D1-OP_1250        ;
  4902. OPW_70_JO    DW    MN_JO-MN_AAA+05000H    ;70 JO
  4903. OPJ_70        DW    OP_15BE-OP_1250+0A000H    ;
  4904. OPW_71_JNO    DW    MN_JNO-MN_AAA+05000H    ;71 JNO
  4905. OPJ_71        DW    OP_15BE-OP_1250+0A000H    ;
  4906. OPW_72_JB    DW    MN_JB-MN_AAA+05000H    ;72 JB
  4907. OPJ_72        DW    OP_15BE-OP_1250+0A000H    ;
  4908. OPW_73_JAE_JNB    DW    MN_JNB-MN_AAA+05000H    ;73 JAE/JNB
  4909. OPJ_73        DW    OP_15BE-OP_1250+0A000H    ;
  4910. OPW_74_JZ    DW    MN_JZ-MN_AAA+05000H    ;74 JZ/JE
  4911. OPJ_74        DW    OP_15BE-OP_1250+0A000H    ;
  4912. OPW_75_JNZ    DW    MN_JNZ-MN_AAA+05000H    ;75 JNZ/JNE
  4913. OPJ_75        DW    OP_15BE-OP_1250+0A000H    ;
  4914. OPW_76_JBE    DW    MN_JBE-MN_AAA+05000H    ;76 JBE
  4915. OPJ_76        DW    OP_15BE-OP_1250+0A000H    ;
  4916. OPW_77_JA    DW    MN_JA-MN_AAA+05000H    ;77 JA
  4917. OPJ_77        DW    OP_15BE-OP_1250+0A000H    ;
  4918. OPW_78_JS    DW    MN_JS-MN_AAA+05000H    ;78 JS
  4919. OPJ_78        DW    OP_15BE-OP_1250+0A000H    ;
  4920. OPW_79_JNS    DW    MN_JNS-MN_AAA+05000H    ;79 JNS
  4921. OPJ_79        DW    OP_15BE-OP_1250+0A000H    ;
  4922. OPW_7A_JP    DW    MN_JPE-MN_AAA+05000H    ;7A JP
  4923. OPJ_7A        DW    OP_15BE-OP_1250+0A000H    ;
  4924. OPW_7B_JNP    DW    MN_JPO-MN_AAA+05000H    ;7B JNP
  4925. OPJ_7B        DW    OP_15BE-OP_1250+0A000H    ;
  4926. OPW_7C_JL    DW    MN_JL-MN_AAA+05000H    ;7C JL
  4927. OPJ_7C        DW    OP_15BE-OP_1250+0A000H    ;
  4928. OPW_7D_JGE    DW    MN_JGE-MN_AAA+05000H    ;7D JGE
  4929. OPJ_7D        DW    OP_15BE-OP_1250+0A000H    ;
  4930. OPW_7E_JLE    DW    MN_JLE-MN_AAA+05000H    ;7E JLE
  4931. OPJ_7E        DW    OP_15BE-OP_1250+0A000H    ;
  4932. OPW_7F_JG    DW    MN_JG-MN_AAA+05000H    ;7F JG
  4933. OPJ_7F        DW    OP_15BE-OP_1250+0A000H    ;
  4934. OPW_80_TABLE_V    DW    OFFSET MNV_1FD8        ;80 (TABLE V)
  4935. OPJ_80        DW    OP_12B8-OP_1250        ;
  4936. OPW_81_TABLE_V    DW    OFFSET MNV_1FD8        ;81 (TABLE V)
  4937. OPJ_81        DW    OP_12B8-OP_1250        ;
  4938. OPW_82_TABLE_V    DW    OFFSET MNV_1FD8        ;82 (TABLE V)
  4939. OPJ_82        DW    OP_12B8-OP_1250        ;
  4940. OPW_83_TABLE_V    DW    OFFSET MNV_1FD8        ;83 (TABLE V)
  4941. OPJ_83        DW    OP_12C0-OP_1250        ;
  4942. OPW_84_TEST    DW    MN_TEST-MN_AAA+02000H    ;84 TEST
  4943. OPJ_84        DW    OP_15AE-OP_1250        ;
  4944. OPW_85_TEST    DW    MN_TEST-MN_AAA+02000H    ;85 TEST
  4945. OPJ_85        DW    OP_15AE-OP_1250        ;
  4946. OPW_86_XCHG    DW    MN_XCHG-MN_AAA+03000H    ;86 XCHG
  4947. OPJ_86        DW    OP_15AE-OP_1250        ;
  4948. OPW_87_XCHG    DW    MN_XCHG-MN_AAA+03000H    ;87 XCHG
  4949. OPJ_87        DW    OP_15AE-OP_1250        ;
  4950. OPW_88_MOV    DW    MN_MOV-MN_AAA+03000H    ;88 MOV
  4951. OPJ_88        DW    OP_1548-OP_1250        ;
  4952. OPW_89_MOV    DW    MN_MOV-MN_AAA+03000H    ;89 MOV
  4953. OPJ_89        DW    OP_1548-OP_1250        ;
  4954. OPW_8A_MOV    DW    MN_MOV-MN_AAA+01000H    ;8A MOV
  4955. OPJ_8A        DW    OP_15AE-OP_1250        ;
  4956. OPW_8B_MOV    DW    MN_MOV-MN_AAA+01000H    ;8B MOV
  4957. OPJ_8B        DW    OP_15AE-OP_1250        ;
  4958. OPW_8C_MOV    DW    MN_MOV-MN_AAA+03000H    ;8C MOV
  4959. OPJ_8C        DW    OP_1575-OP_1250        ;
  4960. OPW_8D_LEA    DW    MN_LEA-MN_AAA+01000H    ;8D LEA
  4961. OPJ_8D        DW    OP_15A9-OP_1250        ;
  4962. OPW_8E_MOV    DW    MN_MOV-MN_AAA+01000H    ;8E MOV
  4963. OPJ_8E        DW    OP_158F-OP_1250        ;
  4964. OPW_8F_POP    DW    MN_POP-MN_AAA+03000H    ;8F POP
  4965. OPJ_8F        DW    OP_15A0-OP_1250        ;
  4966. OPW_90_NOP    DW    MN_NOP-MN_AAA        ;90 NOP
  4967. OPJ_90        DW    OP_17CA-OP_1250        ;
  4968. OPW_91_XCHG    DW    MN_XCHG-MN_AAA        ;91 XCHG
  4969. OPJ_91        DW    OP_15E9-OP_1250        ;
  4970. OPW_92_XCHG    DW    MN_XCHG-MN_AAA        ;92 XCHG
  4971. OPJ_92        DW    OP_15E9-OP_1250        ;
  4972. OPW_93_XCHG    DW    MN_XCHG-MN_AAA        ;93 XCHG
  4973. OPJ_93        DW    OP_15E9-OP_1250        ;
  4974. OPW_94_XCHG    DW    MN_XCHG-MN_AAA        ;94 XCHG
  4975. OPJ_94        DW    OP_15E9-OP_1250        ;
  4976. OPW_95_XCHG    DW    MN_XCHG-MN_AAA        ;95 XCHG
  4977. OPJ_95        DW    OP_15E9-OP_1250        ;
  4978. OPW_96_XCHG    DW    MN_XCHG-MN_AAA        ;96 XCHG
  4979. OPJ_96        DW    OP_15E9-OP_1250        ;
  4980. OPW_97_XCHG    DW    MN_XCHG-MN_AAA        ;97 XCHG
  4981. OPJ_97        DW    OP_15E9-OP_1250        ;
  4982. OPW_98_CBW    DW    MN_CBW-MN_AAA        ;98 CBW
  4983. OPJ_98        DW    OP_17CA-OP_1250        ;
  4984. OPW_99_CDW    DW    MN_CWD-MN_AAA        ;99 CDW
  4985. OPJ_99        DW    OP_17CA-OP_1250        ;
  4986. OPW_9A_CALL_FAR    DW    MN_CALL_FAR-MN_AAA+06000H ;9A CALL FAR
  4987. OPJ_9A        DW    OP_13FB-OP_1250+0A000H    ;
  4988. OPW_9B_WAIT    DW    MN_WAIT-MN_AAA        ;9B WAIT
  4989. OPJ_9B        DW    OP_17CA-OP_1250        ;
  4990. OPW_9C_PUSHF    DW    MN_PUSHF-MN_AAA        ;9C PUSHF
  4991. OPJ_9C        DW    OP_17CA-OP_1250        ;
  4992. OPW_9D_POPF    DW    MN_POPF-MN_AAA        ;9D POPF
  4993. OPJ_9D        DW    OP_17CA-OP_1250        ;
  4994. OPW_9E_SAHF    DW    MN_SAHF-MN_AAA        ;9E SAHF
  4995. OPJ_9E        DW    OP_17CA-OP_1250        ;
  4996. OPW_9F_LAHF    DW    MN_LAHF-MN_AAA        ;9F LAHF
  4997. OPJ_9F        DW    OP_17CA-OP_1250        ;
  4998. OPW_A0_MOV    DW    MN_MOV-MN_AAA+01000H    ;A0 MOV
  4999. OPJ_A0        DW    OP_1417-OP_1250        ;
  5000. OPW_A1_MOV    DW    MN_MOV-MN_AAA+01000H    ;A1 MOV
  5001. OPJ_A1        DW    OP_1417-OP_1250        ;
  5002. OPW_A2_MOV    DW    MN_MOV-MN_AAA+03000H    ;A2 MOV
  5003. OPJ_A2        DW    OP_15F4-OP_1250        ;
  5004. OPW_A3_MOV    DW    MN_MOV-MN_AAA+03000H    ;A3 MOV
  5005. OPJ_A3        DW    OP_15F4-OP_1250        ;
  5006. OPW_A4_MOVSB    DW    MN_MOVSB-MN_AAA        ;A4 MOVSB
  5007. OPJ_A4        DW    OP_15FD_STRINGS-OP_1250    ;
  5008. OPW_A5_MOVSW    DW    MN_MOVSW-MN_AAA        ;A5 MOVSW
  5009. OPJ_A5        DW    OP_15FD_STRINGS-OP_1250    ;
  5010. OPW_A6_CMPSB    DW    MN_CMPSB-MN_AAA        ;A6 CMPSB
  5011. OPJ_A6        DW    OP_15FD_STRINGS-OP_1250    ;
  5012. OPW_A7_CMPSW    DW    MN_CMPSW-MN_AAA        ;A7 CMPSW
  5013. OPJ_A7        DW    OP_15FD_STRINGS-OP_1250    ;
  5014. OPW_A8_TEST    DW    MN_TEST-MN_AAA        ;A8 TEST
  5015. OPJ_A8        DW    OP_131D-OP_1250        ;
  5016. OPW_A9_TEST    DW    MN_TEST-MN_AAA        ;A9 TEST
  5017. OPJ_A9        DW    OP_131D-OP_1250        ;
  5018. OPW_AA_STOSB    DW    MN_STOSB-MN_AAA        ;AA STOSB
  5019. OPJ_AA        DW    OP_15FD_STRINGS-OP_1250    ;
  5020. OPW_AB_STOSW    DW    MN_STOSW-MN_AAA        ;AB STOSW
  5021. OPJ_AB        DW    OP_15FD_STRINGS-OP_1250    ;
  5022. OPW_AC_LODSB    DW    MN_LODSB-MN_AAA        ;AC LODSB
  5023. OPJ_AC        DW    OP_15FD_STRINGS-OP_1250    ;
  5024. OPW_AD_LODSW    DW    MN_LODSW-MN_AAA        ;AD LODSW
  5025. OPJ_AD        DW    OP_15FD_STRINGS-OP_1250    ;
  5026. OPW_AE_SCASB    DW    MN_SCASB-MN_AAA        ;AE SCASB
  5027. OPJ_AE        DW    OP_15FD_STRINGS-OP_1250    ;
  5028. OPW_AF_SCASW    DW    MN_SCASW-MN_AAA        ;AF SCASW
  5029. OPJ_AF        DW    OP_15FD_STRINGS-OP_1250    ;
  5030. OPW_B0_MOV    DW    MN_MOV-MN_AAA        ;B0 MOV
  5031. OPJ_B0        DW    OP_162D-OP_1250        ;
  5032. OPW_B1_MOV    DW    MN_MOV-MN_AAA        ;B1 MOV
  5033. OPJ_B1        DW    OP_162D-OP_1250        ;
  5034. OPW_B2_MOV    DW    MN_MOV-MN_AAA        ;B2 MOV
  5035. OPJ_B2        DW    OP_162D-OP_1250        ;
  5036. OPW_B3_MOV    DW    MN_MOV-MN_AAA        ;B3 MOV
  5037. OPJ_B3        DW    OP_162D-OP_1250        ;
  5038. OPW_B4_MOV    DW    MN_MOV-MN_AAA        ;B4 MOV
  5039. OPJ_B4        DW    OP_162D-OP_1250        ;
  5040. OPW_B5_MOV    DW    MN_MOV-MN_AAA        ;B5 MOV
  5041. OPJ_B5        DW    OP_162D-OP_1250        ;
  5042. OPW_B6_MOV    DW    MN_MOV-MN_AAA        ;B6 MOV
  5043. OPJ_B6        DW    OP_162D-OP_1250        ;
  5044. OPW_B7_MOV    DW    MN_MOV-MN_AAA        ;B7 MOV
  5045. OPJ_B7        DW    OP_162D-OP_1250        ;
  5046. OPW_B8_MOV    DW    MN_MOV-MN_AAA        ;B8 MOV
  5047. OPJ_B8        DW    OP_1634-OP_1250        ;
  5048. OPW_B9_MOV    DW    MN_MOV-MN_AAA        ;B9 MOV
  5049. OPJ_B9        DW    OP_1634-OP_1250        ;
  5050. OPW_BA_MOV    DW    MN_MOV-MN_AAA        ;BA MOV
  5051. OPJ_BA        DW    OP_1634-OP_1250        ;
  5052. OPW_BB_MOV    DW    MN_MOV-MN_AAA        ;BB MOV
  5053. OPJ_BB        DW    OP_1634-OP_1250        ;
  5054. OPW_BC_MOV    DW    MN_MOV-MN_AAA        ;BC MOV
  5055. OPJ_BC        DW    OP_1634-OP_1250        ;
  5056. OPW_BD_MOV    DW    MN_MOV-MN_AAA        ;BD MOV
  5057. OPJ_BD        DW    OP_1634-OP_1250        ;
  5058. OPW_BE_MOV    DW    MN_MOV-MN_AAA        ;BE MOV
  5059. OPJ_BE        DW    OP_1634-OP_1250        ;
  5060. OPW_BF_MOV    DW    MN_MOV-MN_AAA        ;BF MOV
  5061. OPJ_BF        DW    OP_1634-OP_1250        ;
  5062. OPW_C0_???    DW    0000H            ;C0 ???
  5063. OPJ_C0        DW    OP_17D1-OP_1250        ;
  5064. OPW_C1_???    DW    0000H            ;C1 ???
  5065. OPJ_C1        DW    OP_17D1-OP_1250        ;
  5066. OPW_C2_RETN    DW    MN_RET_NEAR_POP-MN_AAA    ;C2 RETN POP
  5067. OPJ_C2        DW    OP_1309-OP_1250        ;
  5068. OPW_C3_RETN    DW    MN_RET_NEAR-MN_AAA    ;C3 RETN
  5069. OPJ_C3        DW    OP_17B2-OP_1250        ;
  5070. OPW_C4_LES    DW    MN_LES-MN_AAA+01000H    ;C4 LES
  5071. OPJ_C4        DW    OP_12ED-OP_1250        ;
  5072. OPW_C5_LDS    DW    MN_LDS-MN_AAA+01000H    ;C5 LDS
  5073. OPJ_C5        DW    OP_12ED-OP_1250        ;
  5074. OPW_C6_MOV    DW    MN_MOV-MN_AAA+03000H    ;C6 MOV
  5075. OPJ_C6        DW    OP_12FF-OP_1250        ;
  5076. OPW_C7_MOV    DW    MN_MOV-MN_AAA+03000H    ;C7 MOV
  5077. OPJ_C7        DW    OP_12FF-OP_1250        ;
  5078. OPW_C8_???    DW    0000H            ;C8 ???
  5079. OPJ_C8        DW    OP_17D1-OP_1250        ;
  5080. OPW_C9_???    DW    0000H            ;C9 ???
  5081. OPJ_C9        DW    OP_17D1-OP_1250        ;
  5082. OPW_CA_RETF    DW    MN_RET_FAR_POP-MN_AAA    ;CA RETF POP
  5083. OPJ_CA        DW    OP_130E-OP_1250        ;
  5084. OPW_CB_RETF    DW    MN_RET_FAR-MN_AAA    ;CB RETF
  5085. OPJ_CB        DW    OP_17BD-OP_1250        ;
  5086. OPW_CC_INT_3    DW    MN_INT-MN_AAA+06000H    ;CC INT 3
  5087. OPJ_CC        DW    OP_163E-OP_1250+02000H    ;
  5088. OPW_CD_INT    DW    MN_INT-MN_AAA+06000H    ;CD INT
  5089. OPJ_CD        DW    OP_1654-OP_1250+02000H    ;
  5090. OPW_CE_INTO    DW    MN_INTO-MN_AAA        ;CE INTO
  5091. OPJ_CE        DW    OP_17CA-OP_1250        ;
  5092. OPW_CF_IRET    DW    MN_IRET-MN_AAA        ;CF IRET
  5093. OPJ_CF        DW    OP_17B7-OP_1250+02000H    ;
  5094. OPW_D0_TABLE_W    DW    OFFSET MNW_1FC0        ;D0 (TABLE W)
  5095. OPJ_D0        DW    OP_1768-OP_1250        ;
  5096. OPW_D1_TABLE_W    DW    OFFSET MNW_1FC0        ;D1 (TABLE W)
  5097. OPJ_D1        DW    OP_1768-OP_1250        ;
  5098. OPW_D2_TABLE_W    DW    OFFSET MNW_1FC0        ;D2 (TABLE W)
  5099. OPJ_D2        DW    OP_1768-OP_1250        ;
  5100. OPW_D3_TABLE_W    DW    OFFSET MNW_1FC0        ;D3 (TABLE W)
  5101. OPJ_D3        DW    OP_1768-OP_1250        ;
  5102. OPW_D4_AAM    DW    MN_AAM-MN_AAA        ;D4 AAM
  5103. OPJ_D4        DW    OP_153D-OP_1250        ;
  5104. OPW_D5_AAD    DW    MN_AAD-MN_AAA        ;D5 AAD
  5105. OPJ_D5        DW    OP_153D-OP_1250        ;
  5106. OPW_D6_??DB??    DW    MN_DB-MN_AAA        ;D6 ??DB??
  5107. OPJ_D6        DW    OP_17D1-OP_1250        ;
  5108. OPW_D7_XLAT    DW    MN_XLAT-MN_AAA        ;D7 XLAT
  5109. OPJ_D7        DW    OP_17C7-OP_1250        ;
  5110. OPW_D8_ESC_0    DW    OFFSET ESC_2020        ;D8 ESC 0
  5111. OPJ_D8        DW    OP_1660-OP_1250        ;
  5112. OPW_D9_ESC_1    DW    OFFSET ESC_203C        ;D9 ESC 1
  5113. OPJ_D9        DW    OP_1683_ESC1-OP_1250    ;
  5114. OPW_DA_ESC_2    DW    OFFSET ESC_2094        ;DA ESC 2
  5115. OPJ_DA        DW    OP_16B2-OP_1250        ;
  5116. OPW_DB_ESC_3    DW    OFFSET ESC_20A4        ;DB ESC 3
  5117. OPJ_DB        DW    OP_16B8_ESC3-OP_1250    ;
  5118. OPW_DC_ESC_4    DW    OFFSET ESC_2020        ;DC ESC 4
  5119. OPJ_DC        DW    OP_167A-OP_1250        ;
  5120. OPW_DD_ESC_5    DW    OFFSET ESC_20BC        ;DD ESC 5
  5121. OPJ_DD        DW    OP_16CC_ESC5_7-OP_1250    ;
  5122. OPW_DE_ESC_6    DW    OFFSET ESC_2094        ;DE ESC 6
  5123. OPJ_DE        DW    OP_16ED_ESC6-OP_1250    ;
  5124. OPW_DF_ESC_7    DW    OFFSET ESC_20E4        ;DF ESC 7
  5125. OPJ_DF        DW    OP_16CC_ESC5_7-OP_1250    ;
  5126. OPW_E0_LOOPNZ    DW    MN_LOOPNZ-MN_AAA+05000H    ;E0 LOOPNZ
  5127. OPJ_E0        DW    OP_15BE-OP_1250+0A000H    ;
  5128. OPW_E1_LOOPZ    DW    MN_LOOPZ-MN_AAA+05000H    ;E1 LOOPZ
  5129. OPJ_E1        DW    OP_15BE-OP_1250+0A000H    ;
  5130. OPW_E2_LOOP    DW    MN_LOOP-MN_AAA+05000H    ;E2 LOOP
  5131. OPJ_E2        DW    OP_15BE-OP_1250+0A000H    ;
  5132. OPW_E3_JCXZ    DW    MN_JCXZ-MN_AAA+05000H    ;E3 JCXZ
  5133. OPJ_E3        DW    OP_15BE-OP_1250+0A000H    ;
  5134. OPW_E4_IN    DW    MN_IN-MN_AAA+07000H    ;E4 IN
  5135. OPJ_E4        DW    OP_164E-OP_1250        ;
  5136. OPW_E5_IN    DW    MN_IN-MN_AAA+07000H    ;E5 IN
  5137. OPJ_E5        DW    OP_164E-OP_1250        ;
  5138. OPW_E6_OUT    DW    MN_OUT-MN_AAA+07000H    ;E6 OUT
  5139. OPJ_E6        DW    OP_1643-OP_1250        ;
  5140. OPW_E7_OUT    DW    MN_OUT-MN_AAA+07000H    ;E7 OUT
  5141. OPJ_E7        DW    OP_1643-OP_1250        ;
  5142. OPW_E8_CALL_NEA    DW    MN_CALL-MN_AAA+06000H    ;E8 CALL NEAR
  5143. OPJ_E8        DW    OP_15DF-OP_1250+0A000H    ;
  5144. OPW_E9_JMP_NEAR    DW    MN_JMP-MN_AAA+05000H    ;E9 JMP NEAR
  5145. OPJ_E9        DW    OP_15C6-OP_1250+0A000H    ;
  5146. OPW_EA_JMP_FAR    DW    MN_JMP_FAR_PTR-MN_AAA+05000H ;EA JMP FAR
  5147. OPJ_EA        DW    OP_13FB-OP_1250+0A000H    ;
  5148. OPW_EB_JMP_SHOR    DW    MN_JMP_SHORT-MN_AAA+05000H ;EB JMP SHORT
  5149. OPJ_EB        DW    OP_15BA-OP_1250+0A000H    ;
  5150. OPW_EC_IN    DW    MN_IN-MN_AAA+07000H    ;EC IN
  5151. OPJ_EC        DW    OP_1754-OP_1250        ;
  5152. OPW_ED_IN    DW    MN_IN-MN_AAA+07000H    ;ED IN
  5153. OPJ_ED        DW    OP_1754-OP_1250        ;
  5154. OPW_EE_OUT    DW    MN_OUT-MN_AAA+07000H    ;EE OUT
  5155. OPJ_EE        DW    OP_175F-OP_1250        ;
  5156. OPW_EF_OUT    DW    MN_OUT-MN_AAA+07000H    ;EF OUT
  5157. OPJ_EF        DW    OP_175F-OP_1250        ;
  5158. OPW_F0_LOCK    DW    MN_LOCK-MN_AAA        ;F0 LOCK
  5159. OPJ_F0        DW    OP_1268-OP_1250        ;
  5160. OPW_F1_???    DW    0000H            ;F1 ???
  5161. OPJ_F1        DW    OP_17D1-OP_1250        ;
  5162. OPW_F2_REPNZ    DW    MN_REPNZ-MN_AAA        ;F2 REPNZ
  5163. OPJ_F2        DW    OP_1268-OP_1250        ;
  5164. OPW_F3_REPZ    DW    MN_REPZ-MN_AAA        ;F3 REPZ
  5165. OPJ_F3        DW    OP_1268-OP_1250        ;
  5166. OPW_F4_HLT    DW    MN_HLT-MN_AAA        ;F4 HLT
  5167. OPJ_F4        DW    OP_17CA-OP_1250        ;
  5168. OPW_F5_CMC    DW    MN_CMC-MN_AAA        ;F5 CMC
  5169. OPJ_F5        DW    OP_17CA-OP_1250        ;
  5170. OPW_F6_TABLE_X    DW    OFFSET MNX_1FF0        ;F6 (TABLE X)
  5171. OPJ_F6        DW    OP_1781-OP_1250        ;
  5172. OPW_F7_TABLE_X    DW    OFFSET MNX_1FF0        ;F7 (TABLE X)
  5173. OPJ_F7        DW    OP_1781-OP_1250        ;
  5174. OPW_F8_CLC    DW    MN_CLC-MN_AAA        ;F8 CLC
  5175. OPJ_F8        DW    OP_17CA-OP_1250        ;
  5176. OPW_F9_STC    DW    MN_STC-MN_AAA        ;F9 STC
  5177. OPJ_F9        DW    OP_17CA-OP_1250        ;
  5178. OPW_FA_CLI    DW    MN_CLI-MN_AAA        ;FA CLI
  5179. OPJ_FA        DW    OP_17CA-OP_1250        ;
  5180. OPW_FB_STI    DW    MN_STI-MN_AAA        ;FB STI
  5181. OPJ_FB        DW    OP_17CA-OP_1250        ;
  5182. OPW_FC_CLD    DW    MN_CLD-MN_AAA        ;FC CLD
  5183. OPJ_FC        DW    OP_17CA-OP_1250        ;
  5184. OPW_FD_STD    DW    MN_STD-MN_AAA        ;FD STD
  5185. OPJ_FD        DW    OP_17CA-OP_1250        ;
  5186. OPW_FE_TABLE_Y    DW    OFFSET MNY_2008        ;FE (TABLE Y)
  5187. OPJ_FE        DW    OP_178B-OP_1250        ;
  5188. OPW_FF_TABLE_Y    DW    OFFSET MNY_2008        ;FF (TABLE Y)
  5189. OPJ_FF        DW    OP_178B-OP_1250        ;
  5190.         DB    10,'Table V, 80-83: DB and DW difference from Mnemonic '
  5191. MNV_1FD8    DB    0            ; op-code table-V
  5192. MNV_00_ADD    DW    MN_ADD-MN_AAA+04000H
  5193. MNV_1FDB    DB    0
  5194. MNV_01_OR    DW    MN_OR-MN_AAA+04000H
  5195. MNV_1FDE    DB    0
  5196. MNV_02_ADC    DW    MN_ADC-MN_AAA+04000H
  5197. MNV_1FE1    DB    0
  5198. MNV_03_SBB    DW    MN_SBB-MN_AAA+04000H
  5199. MNV_1FE4    DB    0
  5200. MNV_04_AND    DW    MN_AND-MN_AAA+04000H
  5201. MNV_1FE7    DB    0
  5202. MNV_05_SUB    DW    MN_SUB-MN_AAA+04000H
  5203. MNV_1FEA    DB    0
  5204. MNV_06_XOR    DW    MN_XOR-MN_AAA+04000H
  5205. MNV_1FED    DB    0
  5206. MNV_07_CMP    DW    MN_CMP-MN_AAA+02000H
  5207.         DB    10, 'Table W, D0-D3:'
  5208. MNW_1FC0    DB    0            ; op-code table-W
  5209. MNW_00_ROL    DW    MN_ROL-MN_AAA+04000H
  5210. MNW_1FC3    DB    0
  5211. MNW_01_ROR    DW    MN_ROR-MN_AAA+04000H
  5212. MNW_1FC6    DB    0
  5213. MNW_02_RCL    DW    MN_RCL-MN_AAA+04000H
  5214. MNW_1FC9    DB    0
  5215. MNW_03_RCR    DW    MN_RCR-MN_AAA+04000H
  5216. MNW_1FCC    DB    0
  5217. MNW_04_SHL    DW    MN_SHL-MN_AAA+04000H
  5218. MNW_1FCF    DB    0
  5219. MNW_05_SHR    DW    MN_SHR-MN_AAA+04000H
  5220. MNW_1FD2    DB    0
  5221. MNW_06_???    DW    0000H
  5222. MNW_1FD5    DB    0
  5223. MNW_07_SAR    DW    MN_SAR-MN_AAA+04000H
  5224.         DB    10, 'Table X, F6,F7:'
  5225. MNX_1FF0    DB    0            ; op-code table-X
  5226. MNX_00_TEST    DW    MN_TEST-MN_AAA+02000H
  5227. MNX_1FF3    DB    0
  5228. MNX_01_???    DW    0000H
  5229. MNX_1FF6    DB    0
  5230. MNX_02_NOT    DW    MN_NOT-MN_AAA+04000H
  5231. MNX_1FF9    DB    0
  5232. MNX_03_NEG    DW    MN_NEG-MN_AAA+04000H
  5233. MNX_1FFC    DB    0
  5234. MNX_04_MUL    DW    MN_MUL-MN_AAA+01000H
  5235. MNX_1FFF    DB    0
  5236. MNX_05_IMUL    DW    MN_IMUL-MN_AAA+01000H
  5237. MNX_2002    DB    0
  5238. MNX_06_DIV    DW    MN_DIV-MN_AAA+01000H
  5239. MNX_2005    DB    0
  5240. MNX_07_IDIV    DW    MN_IDIV-MN_AAA+01000H
  5241.         DB    10, 'Table Y, FE,FF:'
  5242. MNY_2008    DB    0            ; op-code table-Y
  5243. MNY_00_INC    DW    MN_INC-MN_AAA+04000H
  5244. MNY_200B    DB    0
  5245. MNY_01_DEC    DW    MN_DEC-MN_AAA+04000H
  5246. MNY_200E    DB    20H
  5247. MNY_02_CALL_NEA    DW    MN_CALL-MN_AAA+06000H
  5248. MNY_2011    DB    20H
  5249. MNY_03_CALL_FAR    DW    MN_CALL_DW-MN_AAA+06000H
  5250. MNY_2014    DB    20H
  5251. MNY_04_JMP_NEAR    DW    MN_JMP-MN_AAA+05000H
  5252. MNY_2017    DB    20H
  5253. MNY_05_JMP_FAR    DW    MN_JMP_DW_PTR-MN_AAA+05000H
  5254. MNY_201A    DB    0
  5255. MNY_06_??PUSH??    DW    MN_PUSH-MN_AAA+01000H
  5256. MNY_201D    DB    0
  5257. MNY_07_???    DW    0000H
  5258.         DB    10,'Table ESC & String: DW difference from Mnemonic, 1=null '
  5259. ESC_2020    DW    MN_FADD-MN_AAA+01000H
  5260. ESC_2022    DW    MN_FMUL-MN_AAA+01000H
  5261. ESC_2024    DW    MN_FCOM-MN_AAA+01000H
  5262. ESC_2026    DW    MN_FCOMP-MN_AAA+01000H
  5263. ESC_2028    DW    MN_FSUB-MN_AAA+01000H
  5264. ESC_202A    DW    MN_FSUBR-MN_AAA+01000H
  5265. ESC_202C    DW    MN_FDIV-MN_AAA+01000H
  5266. ESC_202E    DW    MN_FDIVR-MN_AAA+01000H
  5267. STR_2030    DW    MN_MOVS-MN_AAA
  5268. STR_2032    DW    MN_CMPS-MN_AAA
  5269. STR_2034    DW    1            ; 1
  5270. STR_2036    DW    1            ; 1
  5271. STR_2038    DW    MN_LODS-MN_AAA
  5272. STR_203A    DW    1            ; 1
  5273. ESC_203C    DW    MN_FLD-MN_AAA+01000H
  5274. ESC_203E    DW    1            ; 1
  5275. ESC_2040    DW    MN_FST-MN_AAA+03000H
  5276. ESC_2042    DW    MN_FSTP-MN_AAA+03000H
  5277. ESC_2044    DW    MN_FLDENV-MN_AAA+01000H
  5278. ESC_2046    DW    MN_FLDCW-MN_AAA+01000H
  5279. ESC_2048    DW    MN_FSTENV-MN_AAA+03000H
  5280. ESC_204A    DW    MN_FSTCW-MN_AAA+03000H
  5281. ESC_204C    DW    MN_FLD-MN_AAA+01000H
  5282. ESC_204E    DW    MN_FXCH-MN_AAA
  5283. ESC_2050    DW    MN_FNOP-MN_AAA
  5284. ESC_2052    DW    MN_FSTP-MN_AAA
  5285. ESC_2054    DW    MN_FCHS-MN_AAA
  5286. ESC_2056    DW    MN_FABS-MN_AAA
  5287. ESC_2058    DW    1            ; 1
  5288. ESC_205A    DW    1            ; 1
  5289. ESC_205C    DW    MN_FTST-MN_AAA
  5290. ESC_205E    DW    MN_FXAM-MN_AAA
  5291. ESC_2060    DW    1            ; 1
  5292. ESC_2062    DW    1            ; 1
  5293. ESC_2064    DW    MN_FLD1-MN_AAA
  5294. ESC_2066    DW    MN_FLDL2T-MN_AAA
  5295. ESC_2068    DW    MN_FLDL2E-MN_AAA
  5296. ESC_206A    DW    MN_FLDPI-MN_AAA
  5297. ESC_206C    DW    MN_FLDLG2-MN_AAA
  5298. ESC_206E    DW    MN_FLDLN2-MN_AAA
  5299. ESC_2070    DW    MN_FLDZ-MN_AAA
  5300. ESC_2072    DW    1            ; 1
  5301. ESC_2074    DW    MN_F2XM1-MN_AAA
  5302. ESC_2076    DW    MN_FYL2X-MN_AAA
  5303. ESC_2078    DW    MN_FPTAN-MN_AAA
  5304. ESC_207A    DW    MN_FPATAN-MN_AAA
  5305. ESC_207C    DW    MN_FXTRACT-MN_AAA
  5306. ESC_207E    DW    1            ; 1
  5307. ESC_2080    DW    MN_FDECSTP-MN_AAA
  5308. ESC_2082    DW    MN_FINCSTP-MN_AAA
  5309. ESC_2084    DW    MN_FPREM-MN_AAA
  5310. ESC_2086    DW    MN_FYL2XP1-MN_AAA
  5311. ESC_2088    DW    MN_FSQRT-MN_AAA
  5312. ESC_208A    DW    1            ; 1
  5313. ESC_208C    DW    MN_FRNDINT-MN_AAA
  5314. ESC_208E    DW    MN_FSCALE-MN_AAA
  5315. ESC_2090    DW    1            ; 1
  5316. ESC_2092    DW    1            ; 1
  5317. ESC_2094    DW    MN_FIADD-MN_AAA+01000H
  5318. ESC_2096    DW    MN_FIMUL-MN_AAA+01000H
  5319. ESC_2098    DW    MN_FICOM-MN_AAA+01000H
  5320. ESC_209A    DW    MN_FICOMP-MN_AAA+01000H
  5321. ESC_209C    DW    MN_FISUB-MN_AAA+01000H
  5322. ESC_209E    DW    MN_FISUBR-MN_AAA+01000H
  5323. ESC_20A0    DW    MN_FIDIV-MN_AAA+01000H
  5324. ESC_20A2    DW    MN_FIDIVR-MN_AAA+01000H
  5325. ESC_20A4    DW    MN_FILD-MN_AAA+01000H
  5326. ESC_20A6    DW    1            ; 1
  5327. ESC_20A8    DW    MN_FIST-MN_AAA+03000H
  5328. ESC_20AA    DW    MN_FISTP-MN_AAA+03000H
  5329. ESC_20AC    DW    1            ; 1
  5330. ESC_20AE    DW    MN_FLD-MN_AAA+01000H
  5331. ESC_20B0    DW    1            ; 1
  5332. ESC_20B2    DW    MN_FSTP-MN_AAA+03000H
  5333. ESC_20B4    DW    MN_FENI-MN_AAA
  5334. ESC_20B6    DW    MN_FDISI-MN_AAA
  5335. ESC_20B8    DW    MN_FCLEX-MN_AAA
  5336. ESC_20BA    DW    MN_FINIT-MN_AAA
  5337. ESC_20BC    DW    MN_FLD-MN_AAA+01000H
  5338. ESC_20BE    DW    1            ; 1
  5339. ESC_20C0    DW    MN_FST-MN_AAA+03000H
  5340. ESC_20C2    DW    MN_FSTP-MN_AAA+03000H
  5341. ESC_20C4    DW    MN_FRSTOR-MN_AAA
  5342. ESC_20C6    DW    1            ; 1
  5343. ESC_20C8    DW    MN_FSAVE-MN_AAA+03000H
  5344. ESC_20CA    DW    MN_FSTSW-MN_AAA+03000H
  5345. ESC_20CC    DW    MN_FFREE-MN_AAA+03000H
  5346. ESC_20CE    DW    MN_FXCH-MN_AAA+03000H
  5347. ESC_20D0    DW    MN_FST-MN_AAA+03000H
  5348. ESC_20D2    DW    MN_FSTP-MN_AAA+03000H
  5349. ESC_20D4    DW    MN_FADDP-MN_AAA+01000H
  5350. ESC_20D6    DW    MN_FMULP-MN_AAA+01000H
  5351. ESC_20D8    DW    MN_FCOMP-MN_AAA+01000H
  5352. ESC_20DA    DW    MN_FCOMPP-MN_AAA+01000H
  5353. ESC_20DC    DW    MN_FSUBP-MN_AAA+01000H
  5354. ESC_20DE    DW    MN_FSUBRP-MN_AAA+01000H
  5355. ESC_20E0    DW    MN_FDIVP-MN_AAA+01000H
  5356. ESC_20E2    DW    MN_FDIVRP-MN_AAA+01000H
  5357. ESC_20E4    DW    MN_FILD-MN_AAA+01000H
  5358. ESC_20E6    DW    1            ; 1
  5359. ESC_20E8    DW    MN_FIST-MN_AAA+03000H
  5360. ESC_20EA    DW    MN_FISTP-MN_AAA+03000H
  5361. ESC_20EC    DW    MN_FBLD-MN_AAA+01000H
  5362. ESC_20EE    DW    MN_FILD-MN_AAA+01000H
  5363. ESC_20F0    DW    MN_FBSTP-MN_AAA+03000H
  5364. ESC_20F2    DW    MN_FISTP-MN_AAA+03000H
  5365.         DB    10,'Mnemonic '
  5366. MN_AAA        DB    'AA', 0C1H
  5367. MN_AAD        DB    'AA', 0C4H
  5368. MN_AAM        DB    'AA', 0CDH
  5369. MN_AAS        DB    'AA', 0D3H
  5370. MN_ADC        DB    'AD', 0C3H
  5371. MN_ADD        DB    'AD', 0C4H
  5372. MN_AND        DB    'AN', 0C4H
  5373. MN_BYT_PT    DB    'BYTE PTR', 0A0H
  5374. MN_CALL        DB    'CAL', 0CCH
  5375. MN_CALL_DW    DB    'CALL', 9, 'DWORD PT', 0D2H
  5376. MN_CALL_FAR    DB    'CALL', 9, 'FAR PT', 0D2H
  5377. MN_CBW        DB    'CB', 0D7H
  5378. MN_CLC        DB    'CL', 0C3H
  5379. MN_CLD        DB    'CL', 0C4H
  5380. MN_CLI        DB    'CL', 0C9H
  5381. MN_CMC        DB    'CM', 0C3H
  5382. MN_CMP        DB    'CM', 0D0H
  5383. MN_CMPS        DB    'CMP', 0D3H
  5384. MN_CMPSB    DB    'CMPS', 0C2H
  5385. MN_CMPSW    DB    'CMPS', 0D7H
  5386. DATA_2150_CON    DB    'CON:', 0DH
  5387. MN_CWD        DB    'CW', 0C4H
  5388. MN_DAA        DB    'DA', 0C1H
  5389. MN_DAS        DB    'DA', 0D3H
  5390. MN_DB        DB    'D', 0C2H
  5391. MN_DD        DB    'D', 0C4H
  5392. MN_DEC        DB    'DE', 0C3H
  5393. DATA_2165    DB    '[DI]', 0ACH
  5394. MN_DIV        DB    'DI', 0D6H
  5395. DATA_216D_DUP    DB    ' DUP', 0A8H
  5396. MN_DW        DB    'D', 0D7H
  5397. DATA_2174    DB    'DWORD PTR', 0A0H
  5398. DATA_217E    DB    'END', 89H
  5399. DATA_2182    DB    9, 'ENDS', 0DH, 0AH, ';', 0DH, 8AH
  5400. DATA_218C_EQU    DB    9, 'EQU', 89H
  5401. MN_ESC        DB    'ES', 0C3H
  5402. MN_F2XM1    DB    'F2XM', 0B1H
  5403. MN_FABS        DB    'FAB', 0D3H
  5404. MN_FADD        DB    'FAD', 0C4H
  5405. MN_FADDP    DB    'FADD', 0D0H
  5406. MN_FBLD        DB    'FBL', 0C4H
  5407. MN_FBSTP    DB    'FBST', 0D0H
  5408. MN_FCHS        DB    'F'
  5409. MN_CHS        DB    'CH', 0D3H
  5410. MN_FCLEX    DB    'FCLE', 0D8H
  5411. MN_FCOM        DB    'FCO', 0CDH
  5412. MN_FCOMP    DB    'FCOM', 0D0H
  5413. MN_FCOMPP    DB    'FCOMP', 0D0H
  5414. MN_FDECSTP    DB    'FDECST', 0D0H
  5415. MN_FDISI    DB    'FDIS', 0C9H
  5416. MN_FDIV        DB    'FDI', 0D6H
  5417. MN_FDIVP    DB    'F'
  5418. MN_DIVP        DB    'DIV', 0D0H
  5419. MN_FDIVR    DB    'FDIV', 0D2H
  5420. MN_FDIVRP    DB    'FDIVR', 0D0H
  5421. MN_FENI        DB    'FEN', 0C9H
  5422. MN_FFREE    DB    'FFRE', 0C5H
  5423. MN_FIADD    DB    'FIAD', 0C4H
  5424. MN_FICOM    DB    'FICO', 0CDH
  5425. MN_FICOMP    DB    'FICOM', 0D0H
  5426. MN_FIDIV    DB    'FIDI', 0D6H
  5427. MN_FIDIVR    DB    'FIDIV', 0D2H
  5428. MN_FILD        DB    'FIL', 0C4H
  5429. MN_FIMUL    DB    'FIMU', 0CCH
  5430. MN_FINCSTP    DB    'FINCST', 0D0H
  5431. MN_FINIT    DB    'FINI', 0D4H
  5432. MN_FIST        DB    'FIS', 0D4H
  5433. MN_FISTP    DB    'FIST', 0D0H
  5434. MN_FISUB    DB    'FISU', 0C2H
  5435. MN_FISUBR    DB    'FISUB', 0D2H
  5436. MN_FLD        DB    'FL', 0C4H
  5437. MN_FLD1        DB    'FLD', 0B1H
  5438. MN_FLDL2E    DB    'FLDL2', 0C5H
  5439. MN_FLDL2T    DB    'FLDL2', 0D4H
  5440. MN_FLDCW    DB    'FLDC', 0D7H
  5441. MN_FLDENV    DB    'FLDEN', 0D6H
  5442. MN_FLDLG2    DB    'FLDLG', 0B2H
  5443. MN_FLDLN2    DB    'FLDLN', 0B2H
  5444. MN_FLDPI    DB    'FLDP', 0C9H
  5445. MN_FLDZ        DB    'FLD', 0DAH
  5446. MN_FMUL        DB    'FMU', 0CCH
  5447. MN_FMULP    DB    'FMUL', 0D0H
  5448. MN_FNOP        DB    'FNO', 0D0H
  5449. MN_FPATAN    DB    'FPATA', 0CEH
  5450. MN_FPREM    DB    'FPRE', 0CDH
  5451. MN_FPTAN    DB    'FPTA', 0CEH
  5452. MN_FRNDINT    DB    'FRNDIN', 0D4H
  5453. MN_FRSTOR    DB    'FRSTO', 0D2H
  5454. MN_FSAVE    DB    'FSAV', 0C5H
  5455. MN_FSCALE    DB    'FSCAL', 0C5H
  5456. MN_FSQRT    DB    'FSQR', 0D4H
  5457. MN_FST        DB    'FS', 0D4H
  5458. MN_FSTCW    DB    'FSTC', 0D7H
  5459. MN_FSTENV    DB    'FSTEN', 0D6H
  5460. MN_FSTP        DB    'FST', 0D0H
  5461. MN_FSTSW    DB    'FSTS', 0D7H
  5462. MN_FSUB        DB    'FSU', 0C2H
  5463. MN_FSUBP    DB    'FSUB', 0D0H
  5464. MN_FSUBR    DB    'FSUB', 0D2H
  5465. MN_FSUBRP    DB    'FSUBR', 0D0H
  5466. MN_FTST        DB    'FTS', 0D4H
  5467. MN_FXAM        DB    'FXA', 0CDH
  5468. MN_FXCH        DB    'FXC', 0C8H
  5469. MN_FXTRACT    DB    'FXTRAC', 0D4H
  5470. MN_FYL2X    DB    'FYL2', 0D8H
  5471. MN_FYL2XP1    DB    'FYL2XP', 0B1H
  5472. MN_HLT        DB    'HL', 0D4H
  5473. MN_IDIV        DB    'IDI', 0D6H
  5474. MN_IMUL        DB    'IMU', 0CCH
  5475. MN_IN        DB    'I', 0CEH
  5476. MN_INC        DB    'IN', 0C3H
  5477. MN_INT        DB    'IN', 0D4H
  5478. MN_INTO        DB    'INT', 0CFH
  5479. MN_IRET        DB    'IRE', 0D4H
  5480. MN_JA        DB    'J', 0C1H
  5481. MN_JB        DB    'J', 0C2H
  5482. MN_JBE        DB    'JB', 0C5H
  5483. MN_JCXZ        DB    'JCX', 0DAH
  5484. MN_JG        DB    'J', 0C7H
  5485. MN_JGE        DB    'JG', 0C5H
  5486. MN_JL        DB    'J', 0CCH
  5487. MN_JLE        DB    'JL', 0C5H
  5488. MN_JMP        DB    'JM', 0D0H
  5489. MN_JMP_FAR_PTR    DB    'JMP', 9, 'FAR PT', 0D2H
  5490. MN_JMP_DW_PTR    DB    'JMP', 9, 'DWORD PT', 0D2H
  5491. MN_JMP_SHORT    DB    'JMP', 9, 'SHOR', 0D4H
  5492. MN_JNB        DB    'JN', 0C2H
  5493. MN_JNO        DB    'JN', 0CFH
  5494. MN_JNS        DB    'JN', 0D3H
  5495. MN_JNZ        DB    'JN', 0DAH
  5496. MN_JO        DB    'J', 0CFH
  5497. MN_JPE        DB    'JP', 0C5H
  5498. MN_JPO        DB    'JP', 0CFH
  5499. MN_JS        DB    'J', 0D3H
  5500. MN_JZ        DB    'J', 0DAH
  5501. MN_LAHF        DB    'LAH', 0C6H
  5502. MN_LDS        DB    'LD', 0D3H
  5503. MN_LEA        DB    'LE', 0C1H
  5504. MN_LES        DB    'LE', 0D3H
  5505. MN_LOCK        DB    'LOCK', 89H
  5506. MN_LODS        DB    'LOD', 0D3H
  5507. MN_LODSB    DB    'LODS', 0C2H
  5508. MN_LODSW    DB    'LODS', 0D7H
  5509. MN_LOOP        DB    'LOO', 0D0H
  5510. MN_LOOPNZ    DB    'LOOPN', 0DAH
  5511. MN_LOOPZ    DB    'LOOP', 0DAH
  5512. MN_MOV        DB    'MO', 0D6H
  5513. MN_MOVS        DB    'MOV', 0D3H
  5514. MN_MOVSB    DB    'MOVS', 0C2H
  5515. MN_MOVSW    DB    'MOVS', 0D7H
  5516. MN_MUL        DB    'MU', 0CCH
  5517. MN_NEG        DB    'NE', 0C7H
  5518. MN_TAB_NOP    DB    9
  5519. MN_NOP        DB    'NO', 0D0H
  5520. MN_NOT        DB    'NO', 0D4H
  5521. MN_OFFSET    DB    'OFFSET', 0A0H
  5522. MN_OR        DB    'O', 0D2H
  5523. MN_OUT        DB    'OU', 0D4H
  5524. MN_POP        DB    'PO', 0D0H
  5525. MN_POPF        DB    'POP', 0C6H
  5526. MN_PUSH        DB    'PUS', 0C8H
  5527. MN_PUSHF    DB    'PUSH', 0C6H
  5528. MN_RCL        DB    'RC', 0CCH
  5529. MN_RCR        DB    'RC', 0D2H
  5530. MN_REPNZ    DB    'REPNZ', 89H
  5531. MN_REPZ        DB    'REPZ', 89H
  5532. MN_RET_FAR    DB    'RET_FA', 0D2H
  5533. MN_RET_FAR_POP    DB    'RET_FAR_PO', 0D0H
  5534. MN_RET_NEAR    DB    'RET_NEA', 0D2H
  5535. MN_RET_NEAR_POP    DB    'RET_NEAR_PO', 0D0H
  5536. MN_ROL        DB    'RO', 0CCH
  5537. MN_ROR        DB    'RO', 0D2H
  5538. MN_SAHF        DB    'SAH', 0C6H
  5539. MN_SAR        DB    'SA', 0D2H
  5540. MN_SBB        DB    'SB', 0C2H
  5541. MN_SCASB    DB    'SCAS', 0C2H
  5542. MN_SCASW    DB    'SCAS', 0D7H
  5543. MN_SHL        DB    'SH', 0CCH
  5544. MN_SHR        DB    'SH', 0D2H
  5545. DATA_2417    DB    '[SI', 0DDH
  5546. MN_STC        DB    'ST', 0C3H
  5547. MN_STD        DB    'ST', 0C4H
  5548. MN_STI        DB    'ST', 0C9H
  5549. MN_STOSB    DB    'STOS', 0C2H
  5550. MN_STOSW    DB    'STOS', 0D7H
  5551. MN_SUB        DB    'SU', 0C2H
  5552. MN_TITLE    DB    'PAGE',9,'58,132',0DH,0AH ;added characters in string
  5553.         DB    'TITLE', 89H    ; 'PAGE',9,'58,132',0DH,0AH,'TITLE',89H
  5554. MN_TEST        DB    'TES', 0D4H
  5555. MN_WAIT        DB    'WAI', 0D4H
  5556. MN_WORD_PT    DB    'WORD PTR', 0A0H
  5557. MN_XCHG        DB    'XCH', 0C7H
  5558. MN_XLAT        DB    'XLA', 0D4H
  5559. MN_XOR        DB    'XO', 0D2H
  5560. MN_SEG_STK    DB    9, 'SEGMENT'
  5561. FIX_MN_STK    DB    0DH, 8AH
  5562.         DB    'STACK', 0DH, 8AH
  5563. MN_ASSUME    DB    9, 'ASSUME DS:S'
  5564. FIX_DS_SEG    DB    '0000, SS:S0000 ,CS:S0000 ,ES:S0000', 0DH, 8AH
  5565. MN_ORG_$    DB    9, 'ORG', 9, '$', 0ABH
  5566.         ;-------------------------------
  5567. BYTE_REGS_249B    DB    'ALCLDLBLAHCHDHBH'
  5568. WORD_REGS_24AB    DB    'AXCXDXBXSPBPSIDI'
  5569. SEG_REGS_24BB    DB    'ESCSSSDS'
  5570. DATA_24C3    DB    'BXBXBPBP'        ; Data table (indexed access)
  5571. DATA_24CB    DB    'SIDIBPBX'        ; Data table (indexed access)
  5572. DATA_24D3    DB    'IRTWMJCP?'
  5573. DATA_24DC    DB    'DSCE'
  5574.         ;-------------------------------
  5575. MAC_PATCH83    DB    0            ; byte can now be 0 or 0FFH
  5576.         DB    'PATCH83', 9, 'MACRO', 9, 'X', 0DH, 0AH
  5577.         DB    'ORG', 9, '$-3', 0DH, 0AH
  5578.         DB    'DB', 9, '81H', 0DH, 0AH  ;op-code is now 81H
  5579.         DB    'ORG', 9, '$+2', 0DH, 0AH
  5580.         DB    'DB', 9, 'X', 0DH, 0AH
  5581.         DB    'ENDM', 0DH, 0AH
  5582.         DB    ';', 0DH
  5583.         DB    8AH
  5584. MAC_RET_FAR    DB    0
  5585.         DB    'RET_FAR', 9, 'MACRO', 0DH, 0AH
  5586.         DB    'DB', 9, '0CBH', 0DH, 0AH
  5587.         DB    'ENDM', 0DH, 0AH
  5588.         DB    ';', 0DH
  5589.         DB    8AH
  5590. MAC_RET_FAR_P    DB    0
  5591.         DB    'RET_FAR_POP', 9, 'MACRO', 9, 'X', 0DH, 0AH
  5592.         DB    'DB', 9, '0CAH', 0DH, 0AH
  5593.         DB    'DW', 9, 'X', 0DH, 0AH
  5594.         DB    'ENDM', 0DH, 0AH
  5595.         DB    ';', 0DH
  5596.         DB    8AH
  5597. MAC_RET_NEAR    DB    0
  5598.         DB    'RET_NEAR', 9, 'MACRO', 0DH, 0AH
  5599.         DB    'DB', 9, '0C3H', 0DH, 0AH
  5600.         DB    'ENDM', 0DH, 0AH
  5601.         DB    ';', 0DH
  5602.         DB    8AH
  5603. MAC_RET_NEAR_P    DB    0
  5604.         DB    'RET_NEAR_POP', 9, 'MACRO', 9, 'X'
  5605.         DB    0DH, 0AH, 'DB', 9, '0C2H', 0DH, 0AH
  5606.         DB    'DW', 9, 'X', 0DH, 0AH
  5607.         DB    'ENDM', 0DH, 0AH
  5608.         DB    ';', 0DH
  5609.         DB    8AH, 0FFH
  5610.         ;-------------------------------
  5611. MN_PATCH83_POS    DB    9, 'PATCH83', 9, '0', 0DH    ;altered, positive
  5612.         DB    8AH
  5613. MN_PATCH83_NEG    DB    9, 'PATCH83', 9, '0FFH', 0DH    ;New MACRO, negative
  5614.         DB    8AH
  5615. MN_DOT_RADIX_16    DB    '.RADIX', 9, '16', 0DH, 0AH
  5616. MN_CRLF_INIT_VL    DB    'LF', 9, 'EQU', 9, '0AH', 0DH, 0AH
  5617.         DB    'CR', 9, 'EQU', 9, '0DH', 0DH, 0AH
  5618.         DB    ';', 0DH, 0AH
  5619.         DB    ';INITIAL VALUES :', 9, 'CS:IP', 9
  5620. INIT_CS_SEG_FIX    DB    '0000:0000', 0DH, 0AH        ;patch up location
  5621.         DB    ';', 9, 9, 9, 'SS:SP', 9
  5622. INIT_SP_SEG_FIX    DB    '0000:0000', 0DH        ;patch up location
  5623.         DB    8AH
  5624.         ;-------------------------------
  5625. MS_PROMPT_XARQ    DB    'X <$'
  5626. DATA_2627    DB    '>, A <CON>, R <CON> or Q ? $'
  5627.     ;****    DB    'Invalid drive specification$'    ; (apparently unused)
  5628. MS_NOCLOSE_265F    DB    0DH, 0AH, 'Unable to close output file$'
  5629. MS_FILE_267D    DB    'File $'
  5630. MS_NOTFND_2683    DB    ' not found', 7
  5631. ;***DATA_268E    DB    0DH, 0AH, '$'
  5632. MS_CRLF_$    DB    0DH, 0AH, '$'
  5633. MS_DIRFULL_2691    DB    'No room in disk directory$'
  5634. MS_DSKFULL_26AB    DB    'Insufficient space on disk$'
  5635. MS_ERR_RD_26C6    DB    'Error in reading exe file$'
  5636. MS_ERR_SEQ_26E0    DB    'Unrecognized type in /SEQ file near address '
  5637. DATA_270C    DB    '0000H$'
  5638. MS_AD_ORDR_2712    DB    'Addresses out of order near address '
  5639. DATA_2736    DB    '0000H', 0DH, 0AH, '$'
  5640. MS_STR_SEQ_273E    DB    'Undefined structure in SEQ file$'
  5641. MS_RELOC_275E    DB    ';Relo'
  5642.         DB    0E3H
  5643. MS_ASM_2764    DB    'ASM'
  5644. MS_NUL_2767    DB    'NUL '
  5645. MS_SEQ_276B    DB    'SEQ'
  5646. MS_TBL_276E    DB    'TBL'
  5647. MS_HXVL_ER_2771    DB    'Hex value error in /SEQ file$'
  5648. MS_BYT_N_OT_FLE    DB    'Bytes in output file: $'
  5649. MS_FILE_SPEC_ER DB    ' File spec error$'
  5650. MS_REF_TBL_INCOMP DB    7, 'Reference Table Incomplete due to '
  5651. MS_INSUFF_MEM    DB    'Insufficient memory$'
  5652. MS_INVALID_CMD    DB    'Invalid command$'
  5653. MS_WRITING_27FD    DB    0DH, 0AH, 'Writing $'
  5654. MS_BLDG_REF_TBL    DB    'Building Reference Table', 0DH, 0AH, '$'
  5655.         ;-------------------------------
  5656. DATA_2823    DW    0            ; Data table (indexed access)
  5657. DATA_2825    DW    0, 0, 0            ;   4-words
  5658.  
  5659. DATA_282A    DB    0            ; 0th-buffer byte (unused)
  5660. DATA_282B    DB    24 DUP (0)        ; 24-byte buffer
  5661.  
  5662. RM_FIELD_2843    DB    0            ; R/M 3-bit field
  5663. MOD_FIELD_2844    DB    0            ; MOD 2-bit field
  5664. REG_FIELD_2845    DB    0            ; REG 3-bit field
  5665. DATA_2846    DB    0
  5666. DATA_2847    DB    0
  5667. DATA_2848    DB    0
  5668. DATA_2849    DW    0
  5669. DATA_284B    DW    0
  5670. DATA_284D    DW    0, 0
  5671. DATA_2851    DW    0
  5672. DATA_2853    DB    0
  5673. DATA_2854    DW    0            ; Tab counter ?
  5674. DATA_2856    DB    0, 0
  5675. DATA_2858    DW    0
  5676. DATA_285A    DW    0
  5677. DATA_285C    DB    0
  5678. DATA_285D    DB    0, 0
  5679. OPW_TBL_WD_285F    DW    0
  5680. DATA_2861    DB    0
  5681. DATA_2862    DB    0
  5682. DATA_2863    DB    0, 0, 0
  5683. DATA_2866    DB    0
  5684. DATA_2867    DW    0
  5685. OPJ_HI_BYT_2869    DB    0
  5686. OPW_HI_NBL_286A    DB    0            ; The low 4-bits are zeros
  5687. OPCODE_BYT_286B    DB    0            ; used as BYTE/WORD flag
  5688. MOD_REG_RM_286C    DB    0            ; MOD REG R/M Op-code modifier byte
  5689. DATA_286D    DB    0
  5690. DATA_286E    DB    0
  5691. DATA_286F    DB    0
  5692.         ;-------------------------------
  5693. ;DATA_2870    DB    0FFH            ; Data table (indexed access)
  5694. ;DATA_2871    DB    0FFH
  5695. ;DATA_2872    DB    0FFH
  5696. ;DATA_2873    DB    0FFH
  5697. ;DATA_2874    DB    0FFH
  5698. ;DATA_2875    DB    0FFH
  5699. ;DATA_2876    DB    0FFH
  5700. ;RAD16_FLAG_2877 DB    0FFH
  5701. ;DATA_2878    DB    0FFH
  5702.  
  5703. SEQ_SW_BYTES    LABEL    BYTE        ;alias name, used for indexing
  5704. SW_O_OUTPUT_LST    DB    0FFH        ; Data table (indexed access)
  5705. SW_R_TABLE_LST    DB    0FFH
  5706. SW_E_EMBED_REF    DB    0FFH
  5707. SW_L_LABEL_NUMB    DB    0FFH
  5708. SW_F_8087_CODES    DB    0FFH
  5709. SW_T_TRACE_OUTP    DB    0FFH
  5710. SW_B_BYTE_REFS    DB    0FFH
  5711. SW_H_HEX_SUFFIX    DB    0FFH
  5712. SW_M_MACRO_LIST    DB    0FFH
  5713.         ;-------------------------------
  5714. DATA_2879    DB    9, ';', 27H
  5715. DATA_287C    DB    'HL'
  5716.         DB    0A7H
  5717. DATA_287F    DW    0
  5718. DATA_2881    DW    0
  5719. DATA_2883    DW    0
  5720. DATA_2885    DW    0
  5721. DATA_2887    DB    0
  5722. DATA_2888    DB    0
  5723. DATA_2889    DW    0
  5724. DATA_288D    DW    0
  5725. DATA_288F    DW    0
  5726. DATA_2891    DW    0
  5727. DATA_2893    DW    0
  5728. DATA_2895    DB    128 DUP (0)        ; 128-byte buffer
  5729. DATA_2915    DW    0, 0
  5730. DATA_2919    DW    0
  5731. DATA_291B    DB    0
  5732.         ;-------------------------------
  5733. FCB1_291C    DB    0            ; File Control Block #1 (37-bytes)
  5734. FCB1_NAME_291D    DB    8 DUP (20H)        ; 8-Byte File Name
  5735. FCB1_EXT_2925    DB    3 DUP (20H)        ; 3-Byte File Extension
  5736.         DB    0, 0            ; 1-Word Current Block Number
  5737.         DB    0, 0            ; 1-Word Record Size
  5738. FCB1_FILSZ_292C    DB    4 DUP (0)        ; 4-Byte File Size (in bytes)
  5739.         DB    0, 0            ; 1-Word Date
  5740.         DB    0, 0            ; 1-Word Time
  5741.         DB    8 DUP (0)        ; 8-Byte Reserved for DOS
  5742.         DB    0            ; 1-Byte Current Record Number
  5743.         DB    4 DUP (0)        ; 4-Byte Random Record Number
  5744.     ;***    DB    0            ; (apparently unused)
  5745.         ;-------------------------------
  5746. FCB2_2942    DB    0            ; File Control Block #2 (37-bytes)
  5747. FCB2_NAME_2943    DB    8 DUP (20H)        ; 8-Byte File Name
  5748. FCB2_EXT_294B    DB    3 DUP (20H)         ; 3-Byte File Extension
  5749.         DB    0, 0            ; 1-Word Current Block Number
  5750.         DB    0, 0            ; 1-Word Record Size
  5751.         DB    4 DUP (0)        ; 4-Byte File Size (in bytes)
  5752.         DB    0, 0            ; 1-Word Date
  5753.         DB    0, 0            ; 1-Word Time
  5754.         DB    8 DUP (0)        ; 8-Byte Reserved for DOS
  5755.         DB    0            ; 1-Byte Current Record Number
  5756.         DB    4 DUP (0)        ; 4-Byte Random Record Number
  5757.         ;-------------------------------
  5758.     ;***    DB    0            ; (apparently unused)
  5759.  
  5760. KBD_BUF_2968    DB    20H, 0            ; Keyboard Buffer
  5761. DATA_296A    DB    33 DUP (0)        ; Keyboard line buffer
  5762. ;**DATA_298B    DB    132 DUP (0)        ; line buffer
  5763. LINE_BUF_132CHR    DB    132 DUP (0)        ; line buffer
  5764.         ;-------------------------------
  5765. FCB3_2A0F    DB    0            ; FCB #3 - File to be disassembled
  5766. FCB3_NAME_2A10    DB    7 DUP (20H)        ; 8-Byte File Name
  5767. FCB3_EXT_2A17    DB    20H            ; 1-Word File Ext 1st char
  5768. FCB3_EXT1_2A18    DB    20H            ; 1-Byte File Ext 1st char
  5769. FCB3_EXT2_2A19    DB    20H            ; 1-Byte File Ext 2nd char
  5770. FCB3_EXT3_2A1A    DB    20H            ; 1-Byte File Ext 3rd char
  5771. FCB3_BLKNO_2A1B    DB    0, 0            ; 1-Word Current Block Number
  5772. FCB3_RECSZ_2A1D    DB    0, 0            ; 1-Word Record Size
  5773. FCB3_FILSZ_2A1F    DB    4 DUP (0)        ; 4-Byte File Size
  5774. FCB3_DATE_2A23    DB    0, 0            ; 1-Word Date File Created/Updated
  5775.         DB    0, 0            ; 1-Word Time File Created
  5776.         DB    8 DUP (0)        ; 8-Byte Reserved for DOS
  5777. FCB3_CUREC_2A2F    DB    0            ; 1-byte Current Record Number
  5778. FCB3_RNDRC_2A30    DW    0, 0            ; 2-Word Random Record Number
  5779.         ;-------------------------------
  5780. FCB4_2A34    DB    0            ; File Control Block #4 (37-bytes)
  5781. FCB4_NAME_2A35    DB    8 DUP (20H)        ; 8-Byte File Name
  5782.         DB    3 DUP (20H)        ; 3-Byte File Extension
  5783.         DB    0, 0            ; 1-word Current Block number
  5784. FCB4_RECSZ_2A42    DB    0, 0            ; 1-Word Record Size
  5785. FCB4_FILSZ_2A44    DB    0, 0            ; 4-Byte File Size
  5786. FCB4_FLSZH_2A46    DB    0, 0            ; (High word of File Size)
  5787.         DB    0, 0            ; Date
  5788.         DB    0, 0            ; Time
  5789. FCB4_RESRV_2A4C    DB    8 DUP (0)        ; 8-Byte (Reserved area)
  5790. FCB4_CUREC_2A54    DB    0            ; Current Record number
  5791.         DB    4 DUP (0)        ; Random Record number
  5792.         ;-------------------------------
  5793.     ;***    DB    37 DUP (0)        ; (apparently unused)
  5794.  
  5795. DTA1_2A7E    DB    0, 0            ; Disk transfer area #1
  5796. DATA_2A80    DW    0
  5797. DATA_2A82    DW    0
  5798. DATA_2A84    DW    7420H            ; (value left just in case)
  5799. DATA_2A86    DW    0, 0, 0
  5800. DATA_2A8C    DW    0
  5801. DATA_2A8E    DW    0, 0
  5802. DATA_2A92    DW    0            ; initial IP for disassembly
  5803. DATA_2A94    DW    0            ; initial CS for disassembly
  5804. DATA_2A96    DW    0            ; Random Rec Numb for FCB3
  5805.         ;-------------------------------
  5806. DTA2_2A98    DB    0, 0            ; Disk transfer area #2
  5807. DTA2_W2_2A9A    DB    0, 0
  5808.         DB    0, 0            ; (apparently not used)
  5809.         ;-------------------------------
  5810. DTA3_2A9E    DB    0        ; Disk transfer area #3, 512 bytes
  5811. MS_PC_DISASMB    DB    0DH, 0AH, 'The IBM Personal Computer '
  5812.         DB    'Assembly Code Generator', 0DH, 0AH
  5813.         DB    'By J. Gersbach BTVVMLAB(U6081) '
  5814.         DB    'Public Domain Material', 0DH, 0AH
  5815.         DB    'Version 2.01 - Enhancements By '
  5816.         DB    'J. Damke BOEVM1(DAMKE)', 0DH, 0AH
  5817.         DB    'Version 3.01 - Enhancements and code clean-up By '
  5818.         DB    'James E. Galbraith', 0DH, 0AH, 0AH
  5819.         DB    'Command summary :', 0DH, 0AH
  5820.         DB    9, 'X Executable filespec', 0DH, 0AH
  5821.         DB    9, 'A <Assembly Code filespec>', 0DH, 0AH
  5822.         DB    9, 'R <Reference table filespec>', 0DH, 0AH
  5823.         DB    9, 'Q Quit and return to DOS', 0DH, 0AH, 0AH
  5824.         DB    'Executable filespec ? $'
  5825.         DB    124 DUP (0)    ; for a total of 512 bytes in DTA3
  5826.         ;-------------------------------
  5827. DTA4_2C9E    DB    0        ; Disk transfer area #4, 98 bytes
  5828. ;***        DB    96 DUP (0)
  5829. ;**LAST_BYTE    DB    0        ; DATA_2E9E_E    EQU    OFFSET LAST_BYTE+19FH
  5830.  
  5831. SEG_A        ENDS
  5832.  
  5833.         END    START
  5834.